compter le temps d'exécution d'une Macro

[JOAN66]

Bonsoir à tous , je souhaiterai compter le temps exécution d’une macro

Exemple : durée du traitement : 00 minute(es) : 27 seconde(s)

La formule ci-dessous donne le résultat en Millisecondes , d’où mon appel au forum pour trouver la formule exacte . J’ ai fait plusieurs recherche sans résultat , sur le chrono, minuteur, Time ou Timer .

Merci de votre aide

Cordialement Joan
voici la Macro


‘ debut de macro

Dim start As Single

start = Timer

‘ le code

Et en fin de la Macro

MsgBox "durée du traitement: " & Timer - start & " secondes"

 

[Dranreb]

Bonsoir
Essayez comme ça :

MsgBox "durée du traitement: " & Format(Timer - start)/86400000, "hh"" h ""mm"" min ""ss")"

À tester.

 

[JOAN66]

Bonsoir Dranreb ,
merci pour ta réponse hélas elle ne fonctionne pas , il y a une parenthèse qui ne lui plait pas . la dernière aprés ss")" "ss")"

 

[JOAN66]

re-bonsoir Dranreb j' ai rajouté une parenthèse avant Timer et supprimer les guillemets après ss")"
la macro fonctionne mais affiche: 00 h 00 min 01 quelques soit la durée
bonne nuit Joan

 

[Dranreb]

MsgBox Format(2000 / 86400000#, "hh""h ""mm"" min ""ss")
affiche 00h 00 min 02
Mais vous m'avez induit en erreur: Timer donne des secondes non de millisecondes, alors il faut plutôt diviser par 86400

 

[JOAN66]

Bonjour Dranreb, désolé de vous avoir induit en erreur . Mon idée est de trouver une horloge ou chrono ou minuterie afin de calculer le temps du déroulement d'une Macro en secondes après son lancement
Merci
Cordialement Joan

 

[Dranreb]

D'accord.
Je suppose que votre problème est donc résolu.

Vous pouvez aussi obtenir des comptages plus précis avec ces API :

Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean

QueryPerformanceCounter donne un nombre d'instants élémentaires écoulés, et pour les interpréter,
QueryPerformanceFrequency donne le nombre d'instants par seconde.

 

[JOAN66]

Merci Dranreb, à bientôt pour d'autres projets .
Joan