Inserer le temps d'execution d'une macro en secondes, minuntes et heures.

[lefrizey]

Bonjour à tous,

J'ai une macro pour laquelle je souhaite avoir le temps d'exécution. J'ai lancé ma macro sur un gros fichier vendredi et je trouve des valeurs négatives ce lundi matin. Je ne comprend pas. Aussi, je souhaite que le temps d'exécution s'affiche en heure, minute et seconde.




sub

Dim start As Single
start = timer
MsgBox ("La durée du traitement est de : " & Format(Round(Timer - start), "00:00:00.00"))

end sub



Merci à tous!

 

[Efgé]

Re : Inserer le temps d'execution d'une macro en secondes, minuntes et heures.

Bonjour lefrizey
Peut être comme ceci:

Dim start As Double
start = Timer
MsgBox ("La durée du traitement est de : " & Format((Timer - start), "00:00:00.00"))

Cordialement

EDIT
Bonjour Pierrejean. Exact je n'avais pas pensé à de longs traitements. Time est meilleur.

 

[pierrejean]

Re : Inserer le temps d'execution d'une macro en secondes, minuntes et heures.

Bonjour lefrizey

Si le temps est vraiment long utilise plutôt Time en lieu et place de Timer

Edit : Salut Efgé

 

[lefrizey]

Re : Inserer le temps d'execution d'une macro en secondes, minuntes et heures.

Bonjour à tous,

Merci pour la rectification. Ça fonctionne sans problème.