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 !![]()
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 !![]()
Bonjour Jsiorat
Dans un module standard:
Dans ta sub, entre les 2 appels de requete:
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
Cdlt
Code : Sélectionner tout - Visualiser dans une fenêtre à part Attendre 5000 '5 secondes
Merci Thierry ....
La fonction "GetTickCount()" n'est pas reconnue ! question de référence ??
Bonjour Jsiorat
J'avais oublié:
En tete d'un module standard, ou Private pour un module de formulaire.
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
Pas de référence à ajouter.
Cdlt
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager