OnTime qui restaurera userform [Résolu]

[bill7]

Bonjour, je minimise un user form
code dans le usf :

Code :

1
2
3
Sub minimiser()
ShowWindow Hwnd, 2
End Sub

et juste aprés avoir appelé "minimiser" je lance mon "OnTime"

Code :

Application.OnTime Now + TimeValue("00:00:10"), "restau(" & Hwnd & ")"

car je veux qu'il soit restauré quelques secondes plus tard .
Ma procédure "restau" est dans un module (et pas le userform bien que ça aurait été plus simple !):

Code :

1
2
3
Sub restau()
ShowWindow Hwnd, 1
End Sub

Vous avez dû comprendre que je dois lui passer Hwnd en parametre (il est déclaré et géré dans ma form) et que j'ai un plantage :
"impossible de trouver la macro'restau(1377268)'"
Pouvez vous me dire comment faire pour pouvoir restaurer ma form ?
J'envoie le classeur ci joint, la form se lance au démarrage; pour minimiser, taper 'M' (c'est géré dans la procedure UserForm_KeyUp).
Merci !

[dadavyvy]

Si ta variable Hwnd n'est pas une variable locale à la procédure (mais Private ou Public), il suffit de l'enlever :

Code :

Application.OnTime Now + TimeValue("00:00:10"), "restau"

D'ailleurs tu n'as pas de paramètre à ta procédure restau...

[bill7]

Si justement il y avait Hwnd, et elle était définie dans userform, pas dans le module. C'est rectifié, c'est du billard maintenant.
Merci