Temporisation sur UserForm
Bonjour a tous !
Je suis donc entrain de faire une suite de userform pour avoir un rendu propre et de bonne qualité. J'ai décidé a la fin de ma suite de userform de faire un "Merci de patienter" pendant la mis a jour de ma macro. J'aimerais donc que la fenêtre reste temporiser pendant un total de 5 secondes, puis ce ferme.
Mais impossible de fermer a part avec la croix rouge...
Avez vous des solutions viables ?
Code a l'intérieur de ma fenetre lancement4(Userform4)
Private Sub userform_initialize()
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='D:\Documents and Settings\patrietho\Bureau\pat.gif '></img></body></html>"
End Sub
Private Sub userform_initialize1()
Application.OnTime TimeValue("00:00:05")
Unload lancement4
End SubBonjour
Code à placer dans le code de l'userform
Private Sub userform_initialize()
Application.OnTime Now + TimeValue("00:00:05"), "Fermeture"
WebBrowser1.Navigate _
"about:<html><body scroll='no'>" & _
"<img src='D:\Documents and Settings\patrietho\Bureau\pat.gif '></img></body></html>"
End SubCode à placer dans un module standard
Sub Fermeture()
Unload lancement4
End SubSuper ! Ce forum est juste génial