Bonsoir, j'ai un souci avec les évènements Application.Ontime
c'est à dire que quand je programme une tâche à une heure donnée, si je ferme le classeur l'évènement se produit quand même et j'aimerais que cela ne soit pas le cas.

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
 
Dim DansXSecondes As String
 
Sub VerifMessage()
   DansXSecondes = TimeSerial(Hour(Time), Minute(Time), Second(Time) + Feuil2.Range("CY4").Value)
 Feuil2.Range("CY6").Value = DansXSecondes
   Application.OnTime DansXSecondes, "CompteLignes"
End Sub
 
Sub StopMessage()
 DansXSecondes = Feuil2.Range("C64").Value
 On Error Resume Next
 Application.OnTime DansXSecondes, "CompteLignes", , False
End Sub
Merci de votre aide