P
pias
Guest
Bonjour le Forum,
Dans Thisworkbook pour ouvrir automatiquement l'userForm2 j'ai le code:
---------------------------------------
Private Sub Workbook_Open()
UserForm2.Show
End Sub
------------------------------------------
Dans l'userForm2 je le code suivant:
-----------------------------------------------
UserForm2.Caption = "Message de Bienvenue"
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 8 secondes ne se sont pas écoulé
While Timer < TimeDebut + 8
Wend
' Fermeture de la BdD
Unload Me
End Sub
---------------------------------------
Quel code dois je utiliser pour que après le 8 secondes l'userForm2 se ferme et qu'un autre userForm s'ouvre automatiquement, dans l'ocurrence le nom de l'userForm3 est:
Merci d'avance pour des possibles liens ou infos.
a+
@pias
Dans Thisworkbook pour ouvrir automatiquement l'userForm2 j'ai le code:
---------------------------------------
Private Sub Workbook_Open()
UserForm2.Show
End Sub
------------------------------------------
Dans l'userForm2 je le code suivant:
-----------------------------------------------
UserForm2.Caption = "Message de Bienvenue"
' Récupération de l'heure d'affichage de la BdD
TimeDebut = Timer
' Donne la main à excel pour facilité l'affichage de la BdD
DoEvents
' Boucle tant que 8 secondes ne se sont pas écoulé
While Timer < TimeDebut + 8
Wend
' Fermeture de la BdD
Unload Me
End Sub
---------------------------------------
Quel code dois je utiliser pour que après le 8 secondes l'userForm2 se ferme et qu'un autre userForm s'ouvre automatiquement, dans l'ocurrence le nom de l'userForm3 est:
Merci d'avance pour des possibles liens ou infos.
a+
@pias