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 !