Option Explicit
Private Const ThePath As String = "T:\partage\Suivi.txt"
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) As Long
Private Sub Workbook_Open()
Dim lpBuff As String * 25
Dim ret As Long
Dim UserName As String, Spy As String
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Spy = ThisWorkbook.Name & " sur " & ThisWorkbook.Path & " Ouvert le : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Log Connection : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.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
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
Spy = ThisWorkbook.Name & " sur " & ThisWorkbook.Path & " Fermé le : " & vbTab & Format(Now, "DD/MM/YYYY HH:MM:SS") & _
vbTab & "Log Connection : " & vbTab & UserName & vbTab & _
"Application User Name : " & vbTab & Application.UserName
Open ThePath For Append As #1
Print #1, Spy
Close
End Sub