[VBA]Comment faire une pause

Version imprimable

Bonjour à tous,

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

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

13/04/2007, 14h56
Lou Pitchoun

Salut,

Il faut la déclarer comme Public.

Code:

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
13/04/2007, 15h11
Thierry''

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

Citation:

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.

:koi:
13/04/2007, 15h23
Lou Pitchoun

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

Voilà le code

Code:

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

13/04/2007, 15h41
Lou Pitchoun

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...
13/04/2007, 15h45
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 :?
13/04/2007, 15h45
Lou Pitchoun

Pour être sur, j'ai testé ton code : il fonctionne.
C'est la ligne Sleep 200 qui est en cause ?? :koi:
13/04/2007, 15h48
Lou Pitchoun

Citation:

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...

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

Code:

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

On peut aussi la jouer sans slip :mouarf: :

Code:

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

13/04/2007, 19h03
Lou Pitchoun

Ok faut avouer que le caleçon fonctionne. Mais pourquoi son slip ne marche pas alors que chez moi ça marche... :koi:
14/04/2007, 14h23
vodiem

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)
14/04/2007, 14h24
Invité

Bonjour

J'ai testé sous 2000 j'ai le même soucis que Thierry", à mon avis il faut essayer avec le timer fourni avec les formulaires.

Starec
14/04/2007, 14h42
micniv

Même déclaration (dans un module), même code, ça marche correctement.
acc2000 sp3, win2000
Belle journée