traceur PC VBA

[Madjon6]

Bonjour,

Je cherche une macro permettant de mettre la date et l'heure à chaque fois que le PC s'allume ou s'éteint.

Exmeple :

Date Heure allumage Heure extinction
03/08/2010 09:05 18:30

et s'il est possible de protéger le fichier alimenté par un mot de passe en vba c'est encore mieux.

Merci à vous

 

[phlaurent55]

Re : traceur PC VBA

Bonjour Madjon,

Je ne connais pas le moyen me mettre ces dates et heures concernant le Pc

Par contre si tu veux parler de l'ouverture et fermeture d'un classeur Excel, il suffit de mettre ces procédures dans "Workbook Open" et dans "BeforeClose" ou "BeforeSave"

à+
¨Philippe

 

[Madjon6]

Re : traceur PC VBA

Oui merci mais je cherche le code pour un PC.

Merci encore

 

[Habitude]

Re : traceur PC VBA

Au démarrage de Windows tu ouvre un fichier excel
Qui enregistre sur une feuille l'heure et la date d'ouverture

Tu met dans le code
Application.visible= false
windows va lancer une application de masquage.
Pour afficher ton fichier excel tu n'aura qu'a fermer l'application de masquage dans le gestionnaire des tâches.

A la fermeture du fichier
tu enregistre la date et l'heure

 

[tototiti2008]

Re : traceur PC VBA

Bonjour Madjon6, Bonjour phlaurent55, Bonjour Habitude,

ça ne serait pas plus facile avec des scripts d'ouverture et de fermeture de session en VBS ?

 

[sousou]

Re : traceur PC VBA

Bonjour madjon6 et tous les autres.
La solution ne semble pas être l'utilisation d'excel, mais si cela te conviens, un script VBS peut facilement gérer un journal de log au format txt, ou les informations nécessaires peuvent être inscites.
Pour l'exécution de ce script au démarrage et à l'extinction l'utilisation de la commade Gpedit.msc doit pouvoi faire l'affaire.
Si cette méthode t'interreses ont peu regarder de plus près?

Pas vue tototiti !, mais c'est du même ordre

 

[sousou]

Re : traceur PC VBA

Suite......
ajoute un fichier txt appelé rapports.txt
ajoute ce code dans un fichier txt et à renommer en .vbs
ce code mettra la date et l'heure de son lmancement.

utiliser Gpedit.mcs pour définir son lancement à l'extinction et à l'overture de windows


'Sousoufichier log

'definition du chemin d'accès au fichier rapports
k0= len(wscript.scriptfullname)
k1=len(wscript.scriptname)
chemin= left(wscript.scriptfullname,k0-k1)


filename=chemein & "rapports.txt"

Set fso = CreateObject("Scripting.FileSystemObject")

'ecriture de la date et de lheure
Set fichier = fso.GetFile(filename)
Set tr = fichier.openastextstream(8)
tr.writeline Date & " " & Time

 

[Madjon6]

Re : traceur PC VBA

Effectivement un fichier txt peut faire l'affaire dés lors qu'il est automatisé à 100%.

Mais je n y connais rien au VBS

 

[sousou]

Re : traceur PC VBA

suite
as-tu testé?

 

[Madjon6]

Re : traceur PC VBA

Donc je colle juste le code dans un fichier txt et tester en éteignant le pc ? je peux le sauvegarder n'importe ou ?

 

[Habitude]

Re : traceur PC VBA

Dans la même optique que sousou

à mettre dans un VBS

On Error Resume Next
k0= Len(Wscript.Scriptfullname)
k1= Len(Wscript.Scriptname)
chemin= left(Wcript.Scriptfullname,k0-k1)
chemin= chemin & "OuvertureSession.Log"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.GetFile(chemin)

'  Création fichier Log
if Err then Set fichier= fso.CreateTextFile(chemin,true)

Set objNetwork = WScript.CreateObject("WScript.Network") 
strUserName = objNetwork.UserName 

Set fichier = fso.GetFile(chemin)
Set tr = fichier.OpenAsTextStream(8)
tr.WriteLine strUserName & " " & Date & " " & Time

 

[sousou]

Re : traceur PC VBA

pas tout a fait ca!
tu colle le code dans un fichier txt
tu renomme ce fichier en log.vbs
dans le même répertoire tu crée un fichier txt appelé Rapports.txt (vide)
tu lance la commande gpedit.mcs là tu definit le script (log.vbs) à lancer au demmarrage et à l'arret (configuration ordinateur/Paramètres windows/scripts
et ca doit marché.

 

[Madjon6]

Re : traceur PC VBA

Ok mais comment accéder à gpedit.mcs ? quand on est limité en terme d'accès genre sur poste pro (Administrateur défini) moi je suis simple utilisateur.

 

[sousou]

Re : traceur PC VBA

Bonjour

Si tu a accès à démarrer/Exécuter.
entre la commande gpedit.msc sinon contact l'administrateur qui pourra y accéder

 

[Madjon6]

Re : traceur PC VBA

Ah ok dans ce cas je vais chercher une solution car cela doit être interdit d accéder à ce genre d'action hors cadre pro.