Bonjour alber,
Avec ce genre de code dans le ThisWorkbook (Alt F11 pour aller sousd VBE et Affichage Explorateur de projets) :
Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\opue.txt" For Append As #1
Print #1, Application.UserName, Now
Close #1
End Sub
Sinon, tu pourras trouver d'autres méthodes sur ce site ainsi que sur le lien suivant (mot clé espion)
Formation Excel VBA JB
Bonne journée.
Jean-Pierre