WD2000 : Comment faire pour implémenter un délai dans Visual Basic pour Applications

Méthode 1 : Utiliser vide pour... Boucle suivante

Un inconvénient de cette méthode est qu’il n’y a aucun moyen direct pour déterminer le montant exact de l’heure à laquelle le programme nécessaire à l’exécution de la boucle. La durée dépend de la vitesse de votre ordinateur. Le code suivant exécute une boucle qui ne fait rien, mais prendre du temps.

Sub MyDelayMacro

   For iCount = 1 to 1000
   Next iCount

End Sub

Méthode 2 : Utiliser un appel API pour suspendre l’exécution de Word

Utilisez un appel API pour suspendre l’exécution de Word pour une période de temps définie.

Le Kernel32 contient une fonction qui interrompt l’exécution d’un programme pour un laps de temps, exprimé en millisecondes. Pour que vous puissiez utiliser la fonction, il doit d’abord être déclaré dans la section Déclarations générales du module dans lequel il va être utilisé :

   Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
   (ByVal dwMilliseconds As Long)

Utilisez la syntaxe suivante pour appeler la fonction de mise en veille :

Sub Sleep()
   Sleep 1000   'Implements a 1 second delay
End Sub

Méthode 3 : Utiliser la méthode OnTime

Pour définir une durée pour mettre en pause, utilisez la méthode OnTime . La méthode OnTime utilise la syntaxe suivante :

expression. OnTime (quand, nom, tolérance)Dans la mesure où l’argument de nom nécessite le nom d’une macro à exécuter, vous devez créer deux macros : la première macro doit contenir l’appel de la méthode OnTime et d’autres commandes pertinentes à votre macro et la deuxième macro à exécuter lorsque le temps imparti est écoulé. La deuxième macro peut être une macro » factice qui ne fait rien".

Cet exemple exécute la macro nommée « MyDelayMacro » 15 secondes après l’exécution de l’exemple.

Sub MyMainMacro()

   ' Pause for 15 seconds.
   Application.OnTime When:=Now + TimeValue("00:00:15"), _
      Name:="MyDelayMacro"

End Sub

Public Sub MyDelayMacro()

   ' Place your delayed macro commands here.
   MsgBox "This macro runs after 15 seconds."

End Sub

Pour plus d’informations sur l’utilisation de la méthode OnTime, dans Visual Basic Editor, cliquez sur Aide de Microsoft Visual Basic dans le menu aide , tapez méthode OnTime dans le Compagnon Office ou l’aide intuitive et puis cliquez sur Rechercher pour afficher la rubrique.