Instruction WaitUntil

Interrompt l'exécution du programme jusqu'à l'heure spécifiée.

Syntaxe :

WaitUntil Time

Paramètres :

Time : Expression de date et heure qui contient la date et l'heure jusqu'à laquelle attendre avant l'exécution du programme.

Codes d'erreur :

5 appel de procédure incorrect

Exemple :

REM Attendre jusqu'à 18:00 puis appeler MyMacro.
REM Si après 18:00 alors quitter.
Sub ExampleWaitUntil
Dim vTimeschedule As Double
    vTimeSchedule = Date() + TimeValue("18:00:00")
    If vTimeSchedule < Now() Then Exit Sub
    WaitUntil vTimeSchedule
    Call MyMacro
End Sub

Aidez-nous !