Calculer le temps d'éxécution

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.

ci-joint

Code:

---

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)

---

Bonjour

Code:

---

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"

---

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