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