Discussion :

[vavavoum74]

Bonjour
Soyez indulgents, je débute encore

Voici un bout de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
 
Dim Machexp As Integer
Dim Machdev As Integer
Dim Machrec As Integer
Dim Machren As Integer
 
Sleep (1000)
 
Machexp = DCount("*", "RqtExpedierMachineListeRelance")
    If Machexp > 0 Then
    MsgBox "Vous avez des machines à éxpédier"
    DoCmd.Close acForm, "FormBienvenue"
    DoCmd.OpenReport "EtaListeRelance", acViewReport
    Exit Sub
    End If

Je souhaite qu'avant de s’exécuter, il y aie une pause de 1 sec dans le code.

J'obtiens un message d'erreur:


J'ai donc mal fait quelque chose, mais je ne trouve pas quoi...
Merci d'avance pour votre interêt

[tee_grandbois]

bonjour,
je pense qu'il faut mettre la déclaration de Sleep dans un module standard et pas un module de classe (les codes vba des formulaires sont des modules de classe)

[vavavoum74]

merci de ton intérêt.

Etant débutant, je ne comprends pas trop la différence...
Ceci dit, j'ai crée un nouveau module simple (pas un de classe) , je l'ai nommé "fonction publiques" et j'y ai collé la déclaration.
Cela fonctionne parfaitement comme ceci.

Merci encore de ta réponse.

Au gré de mes recherches, j'ai également trouvé ce code qui ne nécessite pas la déclaration, mais qu'il faudrait mettre à chaque attente (donc moins élégant comme solution) et qui fonctionne très bien:

Code :

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

1
2
3
4
5
TWait = Time
TWait = DateAdd("s", 3, TWait)
Do Until TNow >= TWait
     TNow = Time
Loop

dans cet exemple pour attendre 3 secondes... si ça peut servir

Je met résolu