Patricia25
XLDnaute Nouveau
Bonjour le Forum !
Décidément je ne peux pas me passer de vous !
Voilà mon problème :
Durant l'éxécution de ma macro, je fais apparaitre un userform indiquant l'heure actuelle (label2) et l'heure de fin d'éxécution(label3) de la macro. Dans ce userform, il y a également un gif animé (dans WebBrowser2). Le problème est que lorsque je lance la macro, les affichages des labels sont blancs et le gif ne s'affiche pas. Le tout s'affiche correctement que lorsque la macro est finie. Avez vous une idée de résolution ? Voici mon code :
Merci
Décidément je ne peux pas me passer de vous !
Voilà mon problème :
Durant l'éxécution de ma macro, je fais apparaitre un userform indiquant l'heure actuelle (label2) et l'heure de fin d'éxécution(label3) de la macro. Dans ce userform, il y a également un gif animé (dans WebBrowser2). Le problème est que lorsque je lance la macro, les affichages des labels sont blancs et le gif ne s'affiche pas. Le tout s'affiche correctement que lorsque la macro est finie. Avez vous une idée de résolution ? Voici mon code :
Code:
Private Sub Démarrer_Click()
Application.ScreenUpdating = False
CommandButton1.Visible = False
WebBrowser2.Visible = True
Dim nh, nm, ns
nh = Hour(Now())
nm = Minute(Now())
nm1 = Minute(Now()) + 8
ns = Second(Now())
Label1.Caption = "Traitement en cours..."
Label2.Caption = "Il est"
Label3.Caption = "La màj finira aux environs de"
TextBox1.Value = TimeSerial(nh, nm, ns)
TextBox2.Value = TimeSerial(nh, nm1, ns)
WebBrowser2.Refresh
Call Test ' à modifier par MacroGO
WebBrowser2.Refresh
'WebBrowser2.Visible = False
CommandButton1.Caption = "Terminer"
CommandButton1.Visible = True
Label1.Caption = "Traitement Terminé"
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = "Cliquer sur Démarrer pour lancer la mise à jour"
CommandButton1.Caption = "Annuler"
WebBrowser2.Visible = False
Dim Gif As String
Gif = "H:\\Copie d'écran\progression.gif"
WebBrowser2.Navigate Gif
End Sub
Merci