Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…