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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ;-)

@+