Message temporisé

[Eric]

Bonjour,

Je désirerais faire apparaitre une fenetre avec un message à l'ouverture de mon classeur et que cette fenetre se ferme automatiquement au bout de quelques secondes. Comment faire?
Merci de votre aide.

Eric.

 

[michel]

bonsoir Eric

le fichier joint repondra peut etre ta demande
Un USF apparait à l'ouverture du fichier , pendant 5 secondes avec un message....

Private Sub Workbook_Open()
UserForm1.Show
End Sub


le message dans l'USF

Private Sub UserForm_Initialize()
Label1.Caption = "Bonjour " & Application.UserName
End Sub

la désactivation de l'USF au bout de 5 secondes
Private Sub UserForm_Activate()
Application.Wait Now + TimeValue("00:00:05")
Unload UserForm1
End Sub


pour la mise sur le forum j'ai désactivé la procedure workbook_open
pour le reactiver il faut enlever l'apostrophe devant userform1.show

bonne soirée
Michel

 

[Eric]

Merci beaucoup c'est exactement ça.

Bonsoir.

Eric.