Bonsoir, j'ai un classeur avec une boucle pour un chronomètre sur un userform, le problème c'est quand je ferme ce classeur il se ré-ouvre tout seul avec : ERREUR 424 OBJET REQUIS
Macro :
Il me surligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29 Option Explicit Public ProchainChrono, Départ Public Const TempsD = 60 Dim TempsRestant As Date Sub Demarre() Départ = Now + TimeSerial(0, 0, TempsD) majChrono End Sub Sub majChrono() Arret TempsRestant = Départ - Now ProchainChrono = Now + TimeValue("00:00:01") Application.OnTime ProchainChrono, "majChrono" With Etat7.Label8 .Caption = Format(TempsRestant, "ss") & Chr(34) End With End Sub Sub Arret() On Error Resume Next Application.OnTime ProchainChrono, "majChrono", , False With Etat7.Label8 .Caption = Etat7.Label8.Caption = "60" & Chr(34) End With End SubJe ne comprends pas pourquoi le classeur se ré-ouvre tout seul sachant qu'à la fermeture j'ai :
Code : Sélectionner tout - Visualiser dans une fenêtre à part With Etat7.Label8
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) StopTimer Arret StopClign FinQuitEtat7 ActiveWorkbook.Saved = True Application.DisplayAlerts = False If Application.Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close End If End Sub
Partager