UserForm qui se ferme tout seul

[Ludwig]

Bonsoir tout le monde,

Une petite question en passant. Est-ce que quelqu'un aurait une idée pour faire qu'un UserForm se ferme tout seul au bout de 3 secondes par exemple .

J'ai trouvé un exemple mais il prend en compte un MsgBox.

Voici le code

Sub Fermeture()
CreateObject("Wscript.shell").Popup "Texte", 3, "Titre"
End sub

Je ne vois pas comment faire pour un UserForm.

Merci par avance pour vos lumières et très bonne soirée.

A bientôt

Ludwig

 

[Celeda]

Bonsoir,

Cette fois-ci je n'oublie pas PostVL et voici ce que j'ai retrouvé :
Lien supprimé

Bon c'est pas tout jeune mais on retrouve les procédures
Sub ScheduleOff et Sub ScheduleOn() aevc un exemple USF

Un travail en commun @Thierry-Veri-Ti et + Zon en direct ce soir.


Celeda

 

[Ludwig]

Bonjour Celeda et le Forum,

J'ai bien regardé le fichier joint. Rien à y faire, je ne dois pas être encore bien réveillé. Je n'arrive pas adapter l'exemple. Tu vas me dire qu'un boutton siffirai pour fermer. Mais c'est juste que lorsque j'ouvre mon classeur un UserForm apparait souhaitant la bienvenue. Il faudrait qu'il se ferme au bout de quelques secondes sans rien faire.

J'avais déjà télécharger un exemple ici mais impossible de remettre la main dessus.

En tout cas merci pour ton aide et très bon dimanche.

Ludwig

 

[michel]

bonjour Ludwig , bonjour Celeda

Ludwig , tu peux inserer la procédure ci dessous dans ton userform
l'USF se fermera automatiquement au bout de 5 secondes


Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
Unload UserForm1' adapter selon le nom de ton USF
End Sub


bon dimanche
michel

 

[Ludwig]

Bonjour Michel,

Merci beaucoup, ça marche très bien.

Encore merci à tous et très bon dimanche

Ludwig