salut Dan, le forum:
voici ce que je fais actuellement:
Dim StartTime As Date
Private Class As EventClass
Private TimerValue As String
Sub RunLogTimer(Delay As String, Obj As EventClass)
Set Class = Obj
TimerValue = Delay
StartTime = Now + TimeValue(TimerValue)
Application.OnTime earliesttime:=StartTime, _
procedure:="ExecuteLogTimer"
End Sub
Sub StopLogTimer()
Application.OnTime earliesttime:=StartTime, _
procedure:="ExecuteLogTimer", _
schedule:=False
End Sub
Sub ExecuteLogTimer()
Call Class.Timer
StartTime = Now + TimeValue(TimerValue)
Application.OnTime earliesttime:=StartTime, _
procedure:="ExecuteLogTimer"
End Sub
Avant j avaix mis le On error resume next mais parfois cela n arretait pas le timer alors je cherche la maniere correcte de le faire (si elle existe, et si ce n est pas avec le resume next).
Merci Dan d avoir repondu, si tu as des autres tuyaux j suis preneurs
Julien