Discussion :

[Jsiorat]

Bonjour à toutes et tous,
dans une "private sub", j'aimerai inclure une pause de 5 secondes entre deux requêtes pour donner le temps à la 1ère requête de s'exécuter.
Merci pour vos idées, les miennes sont nulles !

[Thierry_PALLIER]

Bonjour Jsiorat

Dans un module standard:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'Fonction d'attente, délai en ms
Public Sub Attendre(Optional ByVal lms As Long = 1000)
    lms = GetTickCount() + Abs(lms)
    While GetTickCount() < lms: DoEvents: Wend
End Sub

Dans ta sub, entre les 2 appels de requete:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Attendre 5000 '5 secondes

Cdlt

[Jsiorat]

Merci Thierry ....

La fonction "GetTickCount()" n'est pas reconnue ! question de référence ??

[Thierry_PALLIER]

Bonjour Jsiorat

J'avais oublié:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Option Compare Database
Option Explicit
 
'Pour calculer des temps en ms
Public Declare Function GetTickCount Lib "kernel32" () As Long

En tete d'un module standard, ou Private pour un module de formulaire.
Pas de référence à ajouter.
Cdlt