Ouverture d'un UserForm

[ggeo]

Bonjour,

Je souhaite provoquer l'ouverture d'un UserForm après un temps déterminé.
J'ai essayé avec le code suivant, mais sans succès:

Dans ThisWorkbook
Sub Lancer_Heure()
Application.OnTime Nowe + ('00:30:00'), 'OuvFen1'
End Sub

Macro 'OuvFen1' dans Module1

Si quelqu'un peut me dépanner, je l'en remercie par avance.

Bien cordialement.

 

[excalibur]

bonjour ggeo le forum dans ThisWorkbook Option Explicit
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue('00:00:15'), 'macro1'
End Sub dans un module standard Option Explicit
Sub macro1()
UserForm1.Show
End Sub' 15 secondes dans l ex salutations

 

[ggeo]

Bonjour excalibur,
Et grand merci pour ton aide qui me convient parfaitement.
Bien cordialement.