Lien automatique entre deux userForms

  • Initiateur de la discussion pias
  • Date de début
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T