fermeture auto d'une fenêtre

de ce genre, mais au bout de 15 s sa ferme la fenêtre

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

existe t il une formule pour faire :

fermer une fenêtre après un temps de 3 secondes ?

merci

Re
Dans le code du Userform s'il s'agit bien de ça ?

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "my_Procedure"
End Sub

Puis dans un module standard
Sub my_Procedure()
Unload Userform1
End Sub

Cordialement
Pascal

"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de
news: 1EB13B7C-E4A9-46CE-BA8C-E7B60644DBBD@microsoft.com...

de ce genre, mais au bout de 15 s sa ferme la fenêtre

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

existe t il une formule pour faire :

fermer une fenêtre après un temps de 3 secondes ?

merci

oui :

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
End Sub

Re
Dans le code du Userform s'il s'agit bien de ça ?

Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:03"), "my_Procedure"
End Sub

Puis dans un module standard
Sub my_Procedure()
Unload Userform1
End Sub

Cordialement
Pascal

"GARAULT" <GARAULT@discussions.microsoft.com> a écrit dans le message de
news: 1EB13B7C-E4A9-46CE-BA8C-E7B60644DBBD@microsoft.com...

de ce genre, mais au bout de 15 s sa ferme la fenêtre

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

existe t il une formule pour faire :

fermer une fenêtre après un temps de 3 secondes ?

merci