[Fait]Temps d'exécution d'un code [FAQ]

[JeremieT]

Bonjour à tous...

Grâce à ce code dans la FAQ ICI, je voulais obtenir le temps d'exécution de mon code en HH:MM:SS, et non pas en millisecondes.
Avec l'aide de DEMCO, voici le code légèrement modifié à mettre :

Code :

1
2
3
4
5
6
7
8
Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim Debut As Long, Fin As Long
    'Lancement du chrono
    Debut = GetTickCount()
    'Code à placer ici
    'Fin du chrono
    Fin = GetTickCount()
    MsgBox "Temps Total d'exécution en HH:MM:SS -> " & TimeSerial(0, 0, (((Fin - Debut) / 1000)))

Si ça peut vous aider tant mieux ;-)

@+

[trach.sam]

ca ne marche pas bien chez moi ! peut etre un pb entre sec et heure

[JeremieT]

Bonjour,

Si tu ne nous en dis pas plus, ça va petre compliqué...