macro chrono

[Fred]

Bonjour,
je cherche un programme permettant d'afficher le temps d'excécution d'une macro

Merci pour votre aide

 

[michel]

bonsoir

peux tu tester la procedure ci dessous
( TaMacro doit etre remplacé par le nom de ta procedure à tester )

Private Declare Function GetTickCount Lib "kernel32" () As Long
Sub TempsMacro()
Dim Compteur As Long

Compteur = GetTickCount
Call TaMacro
Compteur = GetTickCount - Compteur
MsgBox "Temps d'execution de TaMacro : " & Compteur & " MilliSecondes"

End Sub


bonne soirée
Michel