Bonjour,
Je cherche une macro qui me permette de savoir si quelqu'un ouvre mes fichiers persos.
Je m'explique: Je travail dans une socièté de 50 personnes et nous sommes tous sur serveurs. Chacun à un domaine perso pour stocker ses données. Je trouvais étrange que certain fichiers soient avec des dates de modification différentes par rapport à leur dernière utilisation. Mais lorsque que j'ai regardé les propriétés de mon domaine, j'ai vu que les droits était donnés aux cadres de mon entreprise sur celui-ci.
Je cherche donc à savoir qui, quand et de quel ordinateur, ouvre mes fichiers.

Merci d'avance.

salut

dans workbook_open, tu cherches TON lecteur réseau, pour y écrire un fichier texte (sorte de fichier log), avec le nom utilisateur, et l'horodate.

@++

---

( Nouveau forum : Exclusivement Office & VBA/STRONG>

Salut,
par contre si c'est une macro, celui qui ouvre ton fichier peut les désactiver et là tu ne saura pas qui à ouvert le document!

@+

--------------------------------------------------------------------------
Visitez mon site sur [ Lien ]

En fouillant j'ai trouvé ceci:


Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long

'Spy Opening/Closing @Thierry
Private Sub Workbook_Open()
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String, ThePath
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

ThePath = "C:\Spy.txt"

Spy = "Open on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "User Name : " & vbTab & UserName

Open ThePath For Append As #1
Print #1, Spy
Close

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String, ThePath
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
ThePath = "C:\Spy.txt"
Spy = "Close on : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "User Name : " & vbTab & UserName
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub

Malheureusement ça me donne le nom de la séssion mais pas celui de l'ordinateur.
Pouvez vous m'aider un améliorer cette macro?

Merci