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 = 'J:\\Spy.txt' ' à adapter au réseau
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 = 'J:\\Spy.txt' ' à adapter au réseau
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