Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel fenêtre d'info à l'ouverture

fenêtre d'info à l'ouverture

13 réponses
Avatar
Greg
Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations s'ouvre
automatiquement à l'ouverture du fichier excel. L'utilisateur cliquerait
ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
garnote
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg


Avatar
Greg
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement qu'en
effaçant la macro, de ne plus voir le message à chaque ouverture? Je pense
aux cases à cocher "ne plus voir ce message" ou quelque chose dans le
genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg






Avatar
Philippe.R
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le classeur,
que tu nommeras "ouverture" pour l'exemple et qui s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement qu'en
effaçant la macro, de ne plus voir le message à chaque ouverture? Je pense
aux cases à cocher "ne plus voir ce message" ou quelque chose dans le
genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg









Avatar
Greg
Bonjour Philippe,

C'est parfait. Merci beaucoup à vous 2.

à plus

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le classeur,
que tu nommeras "ouverture" pour l'exemple et qui s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement qu'en
effaçant la macro, de ne plus voir le message à chaque ouverture? Je
pense aux cases à cocher "ne plus voir ce message" ou quelque chose dans
le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg












Avatar
Greg
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui l'est
tout autant, peux tu expliciter "en restant avec un simple MsgBox, créer un
nom dans le classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera". Le simple béotien que je suis est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le classeur,
que tu nommeras "ouverture" pour l'exemple et qui s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement qu'en
effaçant la macro, de ne plus voir le message à chaque ouverture? Je
pense aux cases à cocher "ne plus voir ce message" ou quelque chose dans
le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg












Avatar
Philippe.R
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde aussi du
côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert de
compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui l'est
tout autant, peux tu expliciter "en restant avec un simple MsgBox, créer
un nom dans le classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera". Le simple béotien que je suis est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le classeur,
que tu nommeras "ouverture" pour l'exemple et qui s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement qu'en
effaçant la macro, de ne plus voir le message à chaque ouverture? Je
pense aux cases à cocher "ne plus voir ce message" ou quelque chose dans
le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg















Avatar
Greg
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde aussi
du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert de
compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui l'est
tout autant, peux tu expliciter "en restant avec un simple MsgBox, créer
un nom dans le classeur, que tu nommeras "ouverture" pour l'exemple et
qui s'incrémentera". Le simple béotien que je suis est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement qu'en
effaçant la macro, de ne plus voir le message à chaque ouverture? Je
pense aux cases à cocher "ne plus voir ce message" ou quelque chose
dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...",
_
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel. L'utilisateur
cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg


















Avatar
Philippe.R
Re,
Le code sera alors dans le module de la feuille considérée, ici Feuil1
http://cjoint.com/?hovPZvGqgn
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde aussi
du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert de
compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui
l'est tout autant, peux tu expliciter "en restant avec un simple MsgBox,
créer un nom dans le classeur, que tu nommeras "ouverture" pour
l'exemple et qui s'incrémentera". Le simple béotien que je suis est au
point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement
qu'en effaçant la macro, de ne plus voir le message à chaque
ouverture? Je pense aux cases à cocher "ne plus voir ce message" ou
quelque chose dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée, ...",
_
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel.
L'utilisateur cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg





















Avatar
Greg
Re et re,

Sauf erreur de ma part, il n'y a pas de code dans la feuil1. Le fichier
semble être le même que précédemment.

J'espère ne pas dire de bétise....

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Le code sera alors dans le module de la feuille considérée, ici Feuil1
http://cjoint.com/?hovPZvGqgn
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde
aussi du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert de
compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui
l'est tout autant, peux tu expliciter "en restant avec un simple
MsgBox, créer un nom dans le classeur, que tu nommeras "ouverture" pour
l'exemple et qui s'incrémentera". Le simple béotien que je suis est au
point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement
qu'en effaçant la macro, de ne plus voir le message à chaque
ouverture? Je pense aux cases à cocher "ne plus voir ce message" ou
quelque chose dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée,
...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre d'informations
s'ouvre automatiquement à l'ouverture du fichier excel.
L'utilisateur cliquerait ensuite sur OK une fois l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg
























Avatar
Philippe.R
Bonsoir,
Nouvel essai :
http://cjoint.com/?hoxgL6tWiU
Un clic droit sur l'onglet de la feuille 1 suivi de visualiser le code
devrait montrer ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B2")) Is Nothing Then
If [lesclics] < 6 Then
MsgBox "Vous avez cliqué en " & Target.Address
[lesclics] = [lesclics] + 1
End If
End If
End Sub
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Re et re,

Sauf erreur de ma part, il n'y a pas de code dans la feuil1. Le fichier
semble être le même que précédemment.

J'espère ne pas dire de bétise....

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Le code sera alors dans le module de la feuille considérée, ici Feuil1
http://cjoint.com/?hovPZvGqgn
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Philippe, j'ai compris le principe. Le code, avec quelques
modifications, peut-il s'appliquer à une cellule? Par exemple, aux 5
premiers clic en B2, une fenêtre apparaîtrait avec un message.

Ca résoudrait mes problèmes de commentaires hors champ de la feuille...

Merci encore... c'est vraiment ce que j'attendais... en mieux!

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Re,
Regarde le classeur exemple au bout de ce lien :
http://cjoint.com/?hotQFfP22x
Consulte le code (Alt + F11) dans le module ThisWorkbook et regarde
aussi du côté du menu insertion / nom / définir.
Pour l'exemple, c'est une cellule de la feuille 3 (masquée), qui sert
de compteur destiné à limiter le nombre d'édition du message.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Cher Philippe,

après plusieurs essais infructueux, et une recherche sur le net qui
l'est tout autant, peux tu expliciter "en restant avec un simple
MsgBox, créer un nom dans le classeur, que tu nommeras "ouverture"
pour l'exemple et qui s'incrémentera". Le simple béotien que je suis
est au point mort...

Merci à toi

Greg

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:OrR9%
Bonjour,
Tu peux, en restant avec un simple MsgBox, créer un nom dans le
classeur, que tu nommeras "ouverture" pour l'exemple et qui
s'incrémentera

Private Sub Workbook_Open()
[ouverture] = [ouverture] + 1
ThisWorkbook.Save
If [ouverture] < 5 Then
MsgBox "Bienvenue dans mon joli classeur" & vbNewLine _
& vbNewLine & "Quand vous cliquerez sur OK ou " _
& "que vous taperez sur Entrée, ...", vbOKOnly, _
"A lire attentivement"
End If
End Sub

dans l'exemple, il ne s'affiche que pour les 4 premières ouvertures
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Greg" a écrit dans le message de
news:
Merci Serge!

Lorsque l'utilisateur connaît le fichier, a t-il moyen, autrement
qu'en effaçant la macro, de ne plus voir le message à chaque
ouverture? Je pense aux cases à cocher "ne plus voir ce message" ou
quelque chose dans le genre...

Merci encore

Greg


"garnote" a écrit dans le message de
news:OJXB%
Ave Greg,

Quelque chose du genre, peut-être :

Private Sub Workbook_Open()
MsgBox "Bonjour à vous. " & vbLf & _
"Quand vous cliquerez sur OK ou que vous taperez sur Entrée,
...", _
vbOKOnly, " À lire attentivement"
End Sub

Serge


"Greg" a écrit dans le message de news:

Bonsoir,

Je souhaites savoir s'il est possible qu'une fenêtre
d'informations s'ouvre automatiquement à l'ouverture du fichier
excel. L'utilisateur cliquerait ensuite sur OK une fois
l'information lue.

Est-ce envisageable ou non?

Merci pour vos lumières...

Greg



























1 2