Récupération des noms d'utilisateurs pour compteur de visites

[fdl02]

Bonjour,

Je cherche une solution pour créer un compteur de visite pour différends fichiers excel:
Objectifs:
- Savoir qui (nom d'utilisateur XP).
- Quand le fichier à été ouvert.
- Pouvoir distinguer dans le suivi chacun des fichiers.
Où: je veux centraliser toutes ces informations dans un seul fichier dans un autre répertoire afin de faire un suivi.

Merci pour votre aide.

 

[fdl02]

Re : Récupération des noms d'utilisateurs pour compteur de visites

Re,

Je n'ai pas beaucoup de succès....

J'ai fini par trouver une solution... si cela peux servir:

Private Sub Workbook_Open()

Application.ScreenUpdating = False
On Error Resume Next
' Variables
vName = Environ("UserName")
vTime = Now
vFile = ThisWorkbook.Name

Myfile = "Mon Fichier "

'Ouverture du Fichier Log
Workbooks.Open Myfile, UpdateLinks = xlUpdateLinksNever
[A1].Select
Lastrow = Selection.End(xlDown).Row
If Lastrow = 65536 Then Lastrow = 2

'Ecriture des infos
Cells(Lastrow + 1, 1) = vName
Cells(Lastrow + 1, 2) = vFile
Cells(Lastrow + 1, 3) = vTime

ActiveWorkbook.Save

ActiveWorkbook.Close



End Sub