Discussion :

[nietzsche64]

Bonjour,

Principe de mon traitement : lecture en boucle d'enregistrements d'une table, chaque enregistrement correspondant à une instruction (copie de fichier, exécution macro Access, zip de répertoire etc.).

Il faudrait en fait que chaque instruction attende la fin d'exécution de la précédente pour s'exécuter (certaines durées d'exécution d'instruction peuvent aller jusqu'à plusieurs heures).

Comment faire ? Est-ce que je dois passer par un DoEvents ? Si oui, comment le gérer (je ne l'ai jamais utilisé) ? Est-ce que cet exemple pourrait convenir à mon besoin, sachant que je ne connais pas les temps d'exécution maximum des différentes instructions ?

Code :

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

1
2
3
4
5
6
 
Instruction 1
DoEvents
For i = 1 To 10000000
Next
Instruction 2

Je vous remercie par avance pour l'aide que vous pourrez m'apporter.

Bonne journée.

[nico84]

Bonsoir,

Normalement il suffit de faire

Code :

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

1
2
3
Instruction 1
DoEvents
Instruction 2

S'il y a moyen de connaitre l'avancement de instruction1 c'est mieux pour l'utilisateur ! Si oui j'utilise syscmd qui affiche une barre d'avancement en bas...

[nietzsche64]

Bonsoir,

Normalement il suffit de faire

Code :

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

1
2
3
Instruction 1
DoEvents
Instruction 2

S'il y a moyen de connaitre l'avancement de instruction1 c'est mieux pour l'utilisateur ! Si oui j'utilise syscmd qui affiche une barre d'avancement en bas...

Merci beaucoup pour ta réponse. Dans mon cas, les instructions sont exécutées dans une boucle :

Code :

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

1
2
3
4
5
6
 
Set matable.OpenRecordset(..)
Do While Not matable.EOF
        Exécution de mon instruction
        matable.MoveNext
Loop

Dois-je placer le DoEvents avant le MoveNext par exemple ?
Est-ce que ça peut fonctionner avec un Do While ?

Pour le syscmd, je regarderai d'abord son fonctionnement avant d'essayer de l'utiliser mais une jauge sera(it) effectivement très utile !

Merci encore pour ton aide.

Bonne soirée.

[nico84]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set matable.OpenRecordset(..)
i=0
r=syscmd(1,"traitement en cours...",matable.recordcount)
Do While Not matable.EOF
        Exécution de mon instruction
        doevents
        i=i+1
        r=syscmd(2,i)
        matable.MoveNext
Loop
r=syscmd(3)

[nietzsche64]

Ca fonctionne parfaitement bien, merci infiniment pour ton bout de code qui solutionne mes 2 besoins.

Bonne journée.