[VBA]Comment faire une pause

**Thierry''** · 13/04/2007, 14h49

Bonjour à tous,

Je souhaite faire une pause dans l'execution d'un code, j'ai trouvé dans la FAQ le code suivant:

Code :

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

1
2
3
4
5
6
Placez cette ligne dans la partie Déclarations d'un module :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Vous pourrez ainsi faire une pause de 2 secondes avec l'appel suivant :
Sleep 2000

Or j'ai un message d'erreur:
erreur de compilation
Sub ou Function non définie

Et je ne vois pas où est le problème

Merci de votre aide

**Lou Pitchoun** · 13/04/2007, 14h56

Salut,

Il faut la déclarer comme Public.

Code :

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

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

**Thierry''** · 13/04/2007, 15h11

Après modification j'ai le message d'erreur suivant:

L'expression sur clic entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Des constantes, chaînes de longeur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membre Public de modules d'objet.

**Lou Pitchoun** · 13/04/2007, 15h23

Où et quand appelles tu cette fonction ?
Mets aussi le code des fois que...

**Thierry''** · 13/04/2007, 15h33

Voilà le 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
Option Compare Database
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Private Sub Commande8_Click()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
    For Each fld In tbd.Fields
        Texte0 = tbd.Name & "   " & fld.Name
        Sleep 200
    Next
Next
End Sub

**Lou Pitchoun** · 13/04/2007, 15h41

Bizarre : j'ai pas le problème.

J'ai testé avec la fonction en public dans un module, en private dans le module du formulaire : tout fonctionne...

**Thierry''** · 13/04/2007, 15h45

Est-ce que ça peut venir d'une référence manquante, voila celles que j'utilise:

* Visual Basic for Application
* Microsoft Access 11.0 Object Library
* OLE Automation
* Microsoft DAO 3.6 Object Library
* Microsoft ActiveX Data Objects 2.1 Library
* Microsoft Scripting Runtime

sait on jamais

**Lou Pitchoun** · 13/04/2007, 15h45

Pour être sur, j'ai testé ton code : il fonctionne.
C'est la ligne Sleep 200 qui est en cause ??

**Lou Pitchoun** · 13/04/2007, 15h48

Envoyé par Thierry''

Est-ce que ça peut venir d'une référence manquante, voila celles que j'utilise:

* Visual Basic for Application
* Microsoft Access 11.0 Object Library
* OLE Automation
* Microsoft DAO 3.6 Object Library
* Microsoft ActiveX Data Objects 2.1 Library
* Microsoft Scripting Runtime

sait on jamais

Tu as celles qu'il faut...

**Thierry''** · 13/04/2007, 15h50

Pas uniquement, car je dois supprimer les deux lignes pour que ça fonctionne

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
'Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Private Sub Commande8_Click()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
    For Each fld In tbd.Fields
        Texte0 = tbd.Name & "   " & fld.Name
  '      Sleep 200
    Next
Next
End Sub

**micniv** · 13/04/2007, 19h02

On peut aussi la jouer sans slip

:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Public Sub Pause(sngDuree As Single)
Dim Start As Long
Dim Check As Long
    Start = Timer
    Do Until Check >= Start + sngDuree
        Check = Timer
        DoEvents
    Loop
End Sub

**Lou Pitchoun** · 13/04/2007, 19h03

Ok faut avouer que le caleçon fonctionne. Mais pourquoi son slip ne marche pas alors que chez moi ça marche...

**vodiem** · 14/04/2007, 14h23

j'ai trouvé pourquoi le slip est troué:

il faut Private dans le module du form: car on ne peut déclaré en Public dans un module d'un form
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

pour le déclaré en public il faut le mettre dans un module a part:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)