Discussion :

[XceSs]

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 :

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 Sub

Il me surligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Etat7.Label8

Je 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

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

Merci de votre aide

[XceSs]

après avoir supprimé dans la sub arret :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With Etat7.Label8
   .Caption = Etat7.Label8.Caption = "60" & Chr(34)
 End With

même problème avec la sub majchrono, ça me surligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Etat7.Label8