Existe-t-il un équivalent de Thread.Sleep () dans VBA?

Question

Existe-t-il un équivalent de Thread.Sleep() dans Access VBA?

Answer 1

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

Utilisez la syntaxe suivante pour appeler la fonction Sleep:

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

Answer 2

Une autre manière sans utiliser kernel32:

 Dim started As Single: started = Timer

Do: DoEvents: Loop Until Timer - started >= 1
 

Answer 3

Toutes les autres méthodes permettant d’attendre Excel ont pour résultat que Excel cesse de répondre. La solution pour faire attendre Excel tout en garantissant une interface utilisateur réactive consiste à appeler ce sous-serveur wait avec le nombre de secondes à attendre.

     Sub Wait(seconds As Integer)
      Dim now As Long
      now = Timer()
      Do
          DoEvents
      Loop While (Timer < now + seconds)
    End Sub
 

Answer 4

Quelques amendements sont nécessaires pour que le code fonctionne. Le code ci-dessous est la version corrigée.

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

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

Answer 5

- Je l'utiliser dans Excel et il fonctionne très bien:

Application.Wait DateAdd("s", 1, Now())

DateAdd() est une fonction définie une fois, par rapport à l' Now() (dans ce cas vous pouvez utiliser d'autres valeurs que votre argument), "s" est la mesure de temps (secondes, dans ce cas), et l'incrément est 1. Donc, ici, l'appel de la fonction est de dire la demande d'attendre 1 seconde.

Voir aussi pour plus de détails sur l'utilisation de l' DateAdd fonction.