temps d'utilisation d'un fichier

Question

Bonjour a tous
je cherche un moyen de calculer (et de sauvegarder) le temps d'utilisation de mes fichiers WORD
comme je suis nul en prog je me tourne vers le forum si quelqu'un a une idee je l'en remercie d'avance

cs_frop01 · Answer

Dans un module tapez le code suivant :

Dim Lheure As Double
Dim Interval as Integer

Sub LancerTimer(NbS as integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
   Interval =NbS
   Application.OnTime Now + TimeSerial(0, 0,Interval ), "ExecutionTimer"
End Sub

Sub ArretTimer()
   On Error Resume Next
   Application.OnTime Lheure, "ExecutionTimer", , False
End Sub

Sub ExecutionTimer()
'code à exécuter à la fin de chaque Interval secondes

'code obligatoire
   Lheure = Now + TimeSerial(0, 0, Interval )
   Application.OnTime Lheure, "ExecutionTimer"
End Sub

Vous lancez le timer en appelant la procédure LancerTimer(N), puis elle exécute le code de ExecutionTimer toutes les N secondes et enfin, vous l'arrêter avec ArretTimer.

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

Temps d'utilisation d'un fichier

1 réponse

Discussions similaires