Lien automatique entre deux userForms

  • Auteur 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
 
E

Eric C

Guest
Re le forum
Re pias

Suite de mon post : Ci-joint un fichier où tu trouveras ce que tu cherches, enfin je te le souhaite si j'ai bien compris ta démarche.

@ ++ Eric C
 
P

pias

Guest
Bonsoir. Eric C et le Forum

C’est exactement ça Eric C !... c’est parfait...
Merci beaucoup et bonne soirée

Amicalement
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas