G
Greg
Guest
Bonjour le forum,
Je bloque sur une macro d'autofermeture de classeur au bout de 10 s.
J'ai repris une macro existante mais je n'arrive pas à la modifier à ma sauce.
Si quelqu'un à une idée ,je l'en remercie d'avance.
Private Sub auto_open()
'compte = 10
maprocédure
End Sub
Sub maprocédure()
état = True
'Public compte
compte = Range("e2").Value
If compte = 0 Then
Workbooks("CPR.xls").Close 'savechanges = True
'MsgBox "trop tard"
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), Procedure:="maprocédure", schedule:=état
compte = compte - 1
End Sub
Je bloque sur une macro d'autofermeture de classeur au bout de 10 s.
J'ai repris une macro existante mais je n'arrive pas à la modifier à ma sauce.
Si quelqu'un à une idée ,je l'en remercie d'avance.
Private Sub auto_open()
'compte = 10
maprocédure
End Sub
Sub maprocédure()
état = True
'Public compte
compte = Range("e2").Value
If compte = 0 Then
Workbooks("CPR.xls").Close 'savechanges = True
'MsgBox "trop tard"
Exit Sub
End If
Application.OnTime Now + TimeValue("00:00:01"), Procedure:="maprocédure", schedule:=état
compte = compte - 1
End Sub