Discussion :

[zangaloni]

Bonjour,
J'aimerais calculer le temps d’exécution de mon application d'une manière automatique.
Depuis que je clique sur mon bouton jusqu'à la fin du traitement.
Merci de m'aider si vous avez des idées.

[amnorian]

ci-joint

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim debut As Date, temps As Date, fin As Date
debut = Time
 
'code
 
fin = Time
 
 
 
temps = fin - debut
 
MsgBox ("C'est fini !" & Chr(10) & "temps de traitement " & temps)

[Michel_M]

Bonjour

Code :

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

1
2
3
4
5
6
7
Dim start as single
 
en début de la macro
Start=timer
 
avant end sub
Msgbox "durée du traitement: " & timer-start & " secondes"

[kiki29]

Salut,voir avec QueryPerformanceCounter et QueryPerformanceFrequency dans http://www.developpez.net/forums/d73...raire-donnees/