je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un
fichier et qui me demande l'execution ou non d'une macro et qui ensuite
disparait.
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
remige_paralogique
Tu peux utiliser, il me semble, le raccourci claviet alt+F8. Après, pour une macro, je ne sais pas: sorry... Bon courage.
Benjamin
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Tu peux utiliser, il me semble, le raccourci claviet alt+F8.
Après, pour une macro, je ne sais pas: sorry...
Bon courage.
Benjamin
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un
fichier et qui me demande l'execution ou non d'une macro et qui ensuite
disparait.
Tu peux utiliser, il me semble, le raccourci claviet alt+F8. Après, pour une macro, je ne sais pas: sorry... Bon courage.
Benjamin
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Jacky
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un
fichier et qui me demande l'execution ou non d'une macro et qui ensuite
disparait.
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Jacky
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Oupsss...
remplacer
If x <> 1 Then Exit Sub
par
If x <> 6 Then Exit Sub
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
uxbYbct7GHA.788@TK2MSFTNGP05.phx.gbl...
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un
fichier et qui me demande l'execution ou non d'une macro et qui ensuite
disparait.
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
adrimal
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide
Adrimal
Oupsss...
remplacer
If x <> 1 Then Exit Sub
par
If x <> 6 Then Exit Sub
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
uxbYbct7GHA.788@TK2MSFTNGP05.phx.gbl...
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un
fichier et qui me demande l'execution ou non d'une macro et qui ensuite
disparait.
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Jacky
Re... Ici: http://cjoint.com/?knsxwqy0SF
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Re...
Ici:
http://cjoint.com/?knsxwqy0SF
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 50CBB323-17EA-43EF-B071-AAF8BED845D6@microsoft.com...
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon
fichier !
Merci de votre aide
Adrimal
Oupsss...
remplacer
If x <> 1 Then Exit Sub
par
If x <> 6 Then Exit Sub
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
uxbYbct7GHA.788@TK2MSFTNGP05.phx.gbl...
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message
de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture
d'un
fichier et qui me demande l'execution ou non d'une macro et qui
ensuite
disparait.
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
jps
bonjour adrimal la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I bet jps (beteur, pour ne pas dire beta)
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
bonjour adrimal
la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I
bet
jps (beteur, pour ne pas dire beta)
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 50CBB323-17EA-43EF-B071-AAF8BED845D6@microsoft.com...
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon
fichier !
Merci de votre aide
Adrimal
Oupsss...
remplacer
If x <> 1 Then Exit Sub
par
If x <> 6 Then Exit Sub
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
uxbYbct7GHA.788@TK2MSFTNGP05.phx.gbl...
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message
de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture
d'un
fichier et qui me demande l'execution ou non d'une macro et qui
ensuite
disparait.
bonjour adrimal la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I bet jps (beteur, pour ne pas dire beta)
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
jps
heu...installée, oeuf corse jps (beta finalement)
"jps" a écrit dans le message de news:
bonjour adrimal la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I bet jps (beteur, pour ne pas dire beta)
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
heu...installée, oeuf corse
jps (beta finalement)
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ucKUJYu7GHA.3396@TK2MSFTNGP04.phx.gbl...
bonjour adrimal
la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I
bet
jps (beteur, pour ne pas dire beta)
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 50CBB323-17EA-43EF-B071-AAF8BED845D6@microsoft.com...
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon
fichier !
Merci de votre aide
Adrimal
Oupsss...
remplacer
If x <> 1 Then Exit Sub
par
If x <> 6 Then Exit Sub
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
uxbYbct7GHA.788@TK2MSFTNGP05.phx.gbl...
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36,
Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message
de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture
d'un
fichier et qui me demande l'execution ou non d'une macro et qui
ensuite
disparait.
bonjour adrimal la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I bet jps (beteur, pour ne pas dire beta)
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
adrimal
Bonjour à tous et merci car je ne suis assez novice en programmation et n'avais pas bien suivi la procédure ! enfin maintenant j'ai compris ! -- Merci de votre aide Adrimal
heu...installée, oeuf corse jps (beta finalement)
"jps" a écrit dans le message de news:
bonjour adrimal la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I bet jps (beteur, pour ne pas dire beta)
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
-- Merci de votre aide Adrimal
Bonjour à tous et merci car je ne suis assez novice en programmation et
n'avais pas bien suivi la procédure ! enfin maintenant j'ai compris !
--
Merci de votre aide
Adrimal
heu...installée, oeuf corse
jps (beta finalement)
"jps" <vaderetrosp@mas> a écrit dans le message de news:
ucKUJYu7GHA.3396@TK2MSFTNGP04.phx.gbl...
bonjour adrimal
la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I
bet
jps (beteur, pour ne pas dire beta)
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message de
news: 50CBB323-17EA-43EF-B071-AAF8BED845D6@microsoft.com...
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon
fichier !
Merci de votre aide
Adrimal
Oupsss...
remplacer
If x <> 1 Then Exit Sub
par
If x <> 6 Then Exit Sub
--
Salutations
JJ
"Jacky" <nospams@not> a écrit dans le message de news:
uxbYbct7GHA.788@TK2MSFTNGP05.phx.gbl...
Bonjour,
Ceci peut-être:
A mettre dans le ThisWorbook du classeur en question.
'--------------
Private Sub Workbook_Open()
x = MsgBox("Voulez-vous exécuter la macro ?", 36,
Application.UserName)
If x <> 1 Then Exit Sub
MaMacro ' ****A adapter****
End Sub
'----------
--
Salutations
JJ
"adrimal" <adrimal@discussions.microsoft.com> a écrit dans le message
de
news: 80F1E141-8569-40B4-BA71-0E3EFC7816E2@microsoft.com...
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture
d'un
fichier et qui me demande l'execution ou non d'une macro et qui
ensuite
disparait.
Bonjour à tous et merci car je ne suis assez novice en programmation et n'avais pas bien suivi la procédure ! enfin maintenant j'ai compris ! -- Merci de votre aide Adrimal
heu...installée, oeuf corse jps (beta finalement)
"jps" a écrit dans le message de news:
bonjour adrimal la macro de jacky n'a pas dû être installé dans le module ThisWorkbook, I bet jps (beteur, pour ne pas dire beta)
"adrimal" a écrit dans le message de news:
Merci beaucoup mais la boite ne s'affiche pas dès l'ouverture de mon fichier !
Merci de votre aide Adrimal
Oupsss... remplacer If x <> 1 Then Exit Sub par If x <> 6 Then Exit Sub
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci peut-être: A mettre dans le ThisWorbook du classeur en question. '-------------- Private Sub Workbook_Open() x = MsgBox("Voulez-vous exécuter la macro ?", 36, Application.UserName) If x <> 1 Then Exit Sub MaMacro ' ****A adapter**** End Sub '----------
-- Salutations JJ
"adrimal" a écrit dans le message de news:
Bonjour,
je souhaiterais creer une fenetre qui s'affiche lors de l'ouverture d'un fichier et qui me demande l'execution ou non d'une macro et qui ensuite disparait.
