Bonjour,
J'ai cr=E9e un userform d'acceuil s'affichant pendant 3=20
secondes. Je souhaiterais qu'il s'ouvre =E0 l'ouverture=20
d'un classeur pr=E9cis. Merci pour votre aide.
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
Fabienne
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
Merci Philippe. J'ai suivi les instructions ci-dessous.
Mais lorsque j'ouvre à nouveau mon fichier, le message
n'apparaît pas. Il faut activer la macro. Je souhaiterais
qu'il apparaisse à l'ouverture de mon fichier.
Manque t'il quelque chose ?
-----Message d'origine-----
bonjour fabienne
1/ créer un userform avec tes infos d'ouverture
du maitre john WALKENBACH :
'2/ dans ton userform placer le code suivant
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue
("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard
Sub TestSplashScreen()
UserForm1.Show
End Sub
Private Sub KillTheForm()
Unload UserForm1
End Sub
amicalement
Philippe BRONCHART
"Fabienne" <fherviou@swm-eu.com> a écrit dans le message
de news:
079101c35d9a$0cf6bf30$a601280a@phx.gbl...
Bonjour,
J'ai crée un userform d'acceuil s'affichant pendant 3
secondes. Je souhaiterais qu'il s'ouvre à l'ouverture
d'un classeur précis. Merci pour votre aide.
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
michdenis
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application, '--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$ Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application,
'---------------------------
Private Sub Workbook_Open()
Userform1.Show
End Sub
'---------------------------
Salutations!
"Fabienne" <f.herviou@wanadoo.fr> a écrit dans le message de news:017201c35de8$9b65ed10$a601280a@phx.gbl...
Merci Philippe. J'ai suivi les instructions ci-dessous.
Mais lorsque j'ouvre à nouveau mon fichier, le message
n'apparaît pas. Il faut activer la macro. Je souhaiterais
qu'il apparaisse à l'ouverture de mon fichier.
Manque t'il quelque chose ?
-----Message d'origine-----
bonjour fabienne
1/ créer un userform avec tes infos d'ouverture
du maitre john WALKENBACH :
'2/ dans ton userform placer le code suivant
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue
("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard
Sub TestSplashScreen()
UserForm1.Show
End Sub
Private Sub KillTheForm()
Unload UserForm1
End Sub
amicalement
Philippe BRONCHART
"Fabienne" <fherviou@swm-eu.com> a écrit dans le message
de news:
079101c35d9a$0cf6bf30$a601280a@phx.gbl...
Bonjour,
J'ai crée un userform d'acceuil s'affichant pendant 3
secondes. Je souhaiterais qu'il s'ouvre à l'ouverture
d'un classeur précis. Merci pour votre aide.
En adaptant le nom du formulaire de la procédure selon ton application, '--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$ Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
Fabienne
ça marche, merci beaucoup !
-----Message d'origine----- Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application,
'--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
.
ça marche, merci beaucoup !
-----Message d'origine-----
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon
ton application,
'---------------------------
Private Sub Workbook_Open()
Userform1.Show
End Sub
'---------------------------
Salutations!
"Fabienne" <f.herviou@wanadoo.fr> a écrit dans le message
de news:017201c35de8$9b65ed10$a601280a@phx.gbl...
Merci Philippe. J'ai suivi les instructions ci-dessous.
Mais lorsque j'ouvre à nouveau mon fichier, le message
n'apparaît pas. Il faut activer la macro. Je souhaiterais
qu'il apparaisse à l'ouverture de mon fichier.
Manque t'il quelque chose ?
-----Message d'origine-----
bonjour fabienne
1/ créer un userform avec tes infos d'ouverture
du maitre john WALKENBACH :
'2/ dans ton userform placer le code suivant
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue
("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard
Sub TestSplashScreen()
UserForm1.Show
End Sub
Private Sub KillTheForm()
Unload UserForm1
End Sub
amicalement
Philippe BRONCHART
"Fabienne" <fherviou@swm-eu.com> a écrit dans le message
de news:
079101c35d9a$0cf6bf30$a601280a@phx.gbl...
Bonjour,
J'ai crée un userform d'acceuil s'affichant pendant 3
secondes. Je souhaiterais qu'il s'ouvre à l'ouverture
d'un classeur précis. Merci pour votre aide.
En adaptant le nom du formulaire de la procédure selon ton application,
'--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
.
Philippe BRONCHART
te voila de retour michel ?
"michdenis" a écrit dans le message de news: u7d#
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application, '--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
Mon e-mail perso :
.
te voila de retour michel ?
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u7d#BneXDHA.3232@tk2msftngp13.phx.gbl...
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application,
'---------------------------
Private Sub Workbook_Open()
Userform1.Show
End Sub
'---------------------------
Salutations!
"Fabienne" <f.herviou@wanadoo.fr> a écrit dans le message de
news:017201c35de8$9b65ed10$a601280a@phx.gbl...
Merci Philippe. J'ai suivi les instructions ci-dessous.
Mais lorsque j'ouvre à nouveau mon fichier, le message
n'apparaît pas. Il faut activer la macro. Je souhaiterais
qu'il apparaisse à l'ouverture de mon fichier.
Manque t'il quelque chose ?
-----Message d'origine-----
bonjour fabienne
1/ créer un userform avec tes infos d'ouverture
du maitre john WALKENBACH :
'2/ dans ton userform placer le code suivant
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue
("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard
Sub TestSplashScreen()
UserForm1.Show
End Sub
Private Sub KillTheForm()
Unload UserForm1
End Sub
amicalement
Philippe BRONCHART
"Fabienne" <fherviou@swm-eu.com> a écrit dans le message
de news:
079101c35d9a$0cf6bf30$a601280a@phx.gbl...
Bonjour,
J'ai crée un userform d'acceuil s'affichant pendant 3
secondes. Je souhaiterais qu'il s'ouvre à l'ouverture
d'un classeur précis. Merci pour votre aide.
En adaptant le nom du formulaire de la procédure selon ton application, '--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
"Philippe BRONCHART" <no a écrit dans le message de news:
te voila de retour michel ?
"michdenis" a écrit dans le message de news: u7d#
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application, '--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
"Philippe BRONCHART" <no spasm.philippe.bronchart@wanadoo.fr> a écrit dans
le message de news:uF3q7BnXDHA.608@TK2MSFTNGP12.phx.gbl...
te voila de retour michel ?
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
u7d#BneXDHA.3232@tk2msftngp13.phx.gbl...
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application,
'---------------------------
Private Sub Workbook_Open()
Userform1.Show
End Sub
'---------------------------
Salutations!
"Fabienne" <f.herviou@wanadoo.fr> a écrit dans le message de
news:017201c35de8$9b65ed10$a601280a@phx.gbl...
Merci Philippe. J'ai suivi les instructions ci-dessous.
Mais lorsque j'ouvre à nouveau mon fichier, le message
n'apparaît pas. Il faut activer la macro. Je souhaiterais
qu'il apparaisse à l'ouverture de mon fichier.
Manque t'il quelque chose ?
-----Message d'origine-----
bonjour fabienne
1/ créer un userform avec tes infos d'ouverture
du maitre john WALKENBACH :
'2/ dans ton userform placer le code suivant
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue
("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard
Sub TestSplashScreen()
UserForm1.Show
End Sub
Private Sub KillTheForm()
Unload UserForm1
End Sub
amicalement
Philippe BRONCHART
"Fabienne" <fherviou@swm-eu.com> a écrit dans le message
de news:
079101c35d9a$0cf6bf30$a601280a@phx.gbl...
Bonjour,
J'ai crée un userform d'acceuil s'affichant pendant 3
secondes. Je souhaiterais qu'il s'ouvre à l'ouverture
d'un classeur précis. Merci pour votre aide.
"Philippe BRONCHART" <no a écrit dans le message de news:
te voila de retour michel ?
"michdenis" a écrit dans le message de news: u7d#
Bonjour Fabienne,
Dans le ThisWorkbook de ton classeur :
En adaptant le nom du formulaire de la procédure selon ton application, '--------------------------- Private Sub Workbook_Open() Userform1.Show End Sub '---------------------------
Salutations!
"Fabienne" a écrit dans le message de news:017201c35de8$9b65ed10$
Merci Philippe. J'ai suivi les instructions ci-dessous. Mais lorsque j'ouvre à nouveau mon fichier, le message n'apparaît pas. Il faut activer la macro. Je souhaiterais qu'il apparaisse à l'ouverture de mon fichier. Manque t'il quelque chose ?
-----Message d'origine----- bonjour fabienne 1/ créer un userform avec tes infos d'ouverture du maitre john WALKENBACH : '2/ dans ton userform placer le code suivant Private Sub UserForm_Activate() Application.OnTime Now + TimeValue ("00:00:05"), "KillTheForm"
End Sub
' 3/dans un module standard Sub TestSplashScreen() UserForm1.Show End Sub Private Sub KillTheForm() Unload UserForm1 End Sub
amicalement
Philippe BRONCHART
"Fabienne" a écrit dans le message de news:
079101c35d9a$0cf6bf30$ Bonjour, J'ai crée un userform d'acceuil s'affichant pendant 3 secondes. Je souhaiterais qu'il s'ouvre à l'ouverture d'un classeur précis. Merci pour votre aide.
