OVH Cloud OVH Cloud

Comptabiliser temps sur l'ordi

2 réponses
Avatar
Aiwa
Bonjour, j'aimerais savoir si on peut faire une macro pour comptabiliser le temps que l'ordi est ouvert, et avoir ainsi un historique d'usage de l'ordi. Merci

2 réponses

Avatar
J-Dan
bonjour Aiwa,

vu que ça ne se bouscule pas, je peux te proposer une
macro qui decompte le temps ecoule depuis l'ouverture de
ta session Windows.
Elle est inspiree de Michdenis qui m'avait explique les
chronos au centieme de seconde.
D'autres t'aideront certainement pour calculer le temps
ecoule a la fermeture de ton PC. A la rigueur, recuperer
la duree de la session Excel, c'est faisable (avec
Application.Quit ?)..

bon courage

Sub TempsSessionWindows()

Dim A As Double
Dim secondes As Integer, minutes As Integer, heures As
Integer, F As Date
A = GetTickCount / 1000
heures = Int(A / 5184)
minutes = Int((A / 60) Mod 60)
secondes = Int(A Mod 60)

F = TimeValue(heures & ":" & minutes & ":" & secondes)

[A1].NumberFormat = "[hh]:mm:ss"
[A1] = F

End Sub

-----Message d'origine-----
Bonjour, j'aimerais savoir si on peut faire une macro
pour comptabiliser le temps que l'ordi est ouvert, et

avoir ainsi un historique d'usage de l'ordi. Merci
.



Avatar
J-Dan
oups, j'ai oublie le + important :

Public Declare Function GetTickCount Lib "kernel32" () As
Long

a mettre au debut de ton module

bon courage
-----Message d'origine-----
bonjour Aiwa,

vu que ça ne se bouscule pas, je peux te proposer une
macro qui decompte le temps ecoule depuis l'ouverture de
ta session Windows.
Elle est inspiree de Michdenis qui m'avait explique les
chronos au centieme de seconde.
D'autres t'aideront certainement pour calculer le temps
ecoule a la fermeture de ton PC. A la rigueur, recuperer
la duree de la session Excel, c'est faisable (avec
Application.Quit ?)..

bon courage

Sub TempsSessionWindows()

Dim A As Double
Dim secondes As Integer, minutes As Integer, heures As
Integer, F As Date
A = GetTickCount / 1000
heures = Int(A / 5184)
minutes = Int((A / 60) Mod 60)
secondes = Int(A Mod 60)

F = TimeValue(heures & ":" & minutes & ":" & secondes)

[A1].NumberFormat = "[hh]:mm:ss"
[A1] = F

End Sub

-----Message d'origine-----
Bonjour, j'aimerais savoir si on peut faire une macro
pour comptabiliser le temps que l'ordi est ouvert, et

avoir ainsi un historique d'usage de l'ordi. Merci
.

.