Bonjour, je minimise un user form
code dans le usf :
et juste aprés avoir appelé "minimiser" je lance mon "OnTime"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub minimiser() ShowWindow Hwnd, 2 End Sub
car je veux qu'il soit restauré quelques secondes plus tard .
Code : Sélectionner tout - Visualiser dans une fenêtre à part Application.OnTime Now + TimeValue("00:00:10"), "restau(" & Hwnd & ")"
Ma procédure "restau" est dans un module (et pas le userform bien que ça aurait été plus simple !):
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 :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub restau() ShowWindow Hwnd, 1 End Sub
"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 !
Partager