Bonjour,
Quelqu'un avait demandé comment traqué l'ouverture de fichiers Excel via le réseau.
J'avais promis de récuperer un truc que j'avais fait au boulot.
La macro ci après note dans un fichier texte appelé log.txt, chaque ouverture du fichier avec l'heure, la date, le nom de l'ordinateur et l'utilisateur.
Le fichier txt doit être dans le même répertoire que le fichier Excel à 'traquer'. Sinon, il faut mettre le chemin complet à la place de 'ThisWorkbook.Path'.
Private Sub Workbook_Open()
Dim FileNum As Long
FileNum = FreeFile
Open ThisWorkbook.Path & '\\log.txt' For Append As #FileNum
Print #FileNum, ThisWorkbook.FullName & ' Opened: ' & _
Format(Now, 'yyyy-mm-dd hh:mm:ss') & ' User: ' & _
Application.UserName & ' from computer: ' & Application.OrganizationName
Close #FileNum
End Sub
Oups, un smileys s'est glisser a la place de certain caractères.
Une idée pour éviter ce smileys ?
Message édité par: Spock, à: 26/07/2005 15:17
Quelqu'un avait demandé comment traqué l'ouverture de fichiers Excel via le réseau.
J'avais promis de récuperer un truc que j'avais fait au boulot.
La macro ci après note dans un fichier texte appelé log.txt, chaque ouverture du fichier avec l'heure, la date, le nom de l'ordinateur et l'utilisateur.
Le fichier txt doit être dans le même répertoire que le fichier Excel à 'traquer'. Sinon, il faut mettre le chemin complet à la place de 'ThisWorkbook.Path'.
Private Sub Workbook_Open()
Dim FileNum As Long
FileNum = FreeFile
Open ThisWorkbook.Path & '\\log.txt' For Append As #FileNum
Print #FileNum, ThisWorkbook.FullName & ' Opened: ' & _
Format(Now, 'yyyy-mm-dd hh:mm:ss') & ' User: ' & _
Application.UserName & ' from computer: ' & Application.OrganizationName
Close #FileNum
End Sub
Oups, un smileys s'est glisser a la place de certain caractères.
Une idée pour éviter ce smileys ?
Message édité par: Spock, à: 26/07/2005 15:17