Rapport de message :*
 

Re: syntaxe VBA sur l'instruction application.ontime avec paramètres

Titre du sujet : Re: syntaxe VBA sur l'instruction application.ontime avec paramètres
par Mytå le 01/07/2008 02:26:59

Salut le forum

Une façon de travailler avec OnTime, ici la macro est lancée au 15 secondes.
Option Explicit
Public RunWhen As Variant

Sub LanceMessage()
'Départ du processus
RunWhen = TimeValue(Now + TimeSerial(0, 0, 15))
Application.OnTime RunWhen, "Ma_Macro"
End Sub

Sub StopMessage()
'Arret du processus
On Error Resume Next
Application.OnTime RunWhen, "Ma_Macro", , False
End Sub

Sub Ma_Macro()
MsgBox ("Hello")
Call LanceMessage
End Sub
Mytå

P.S. Bravo, Didier pour le nouveau "Design"