créer un fichier log

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Enregistre la fermeture dans le journal de suivi
journalise "fermeture"
End Sub
'***********
Private Sub Workbook_Open()
'Enregistre l'ouverture dans le journal de suivi
journalise "ouverture"
End Sub
'****************
Sub journalise(txt)
rep_journal = [highlight]"C:\Mettre le nom du répertoire dans lequel tu souhaites mettre le jounal\"

Sub Log()
Dim InfosUtilisateur As String

InfosUtilisateur = Environ("username") & "    " & Now
    AddLineToTextFile "C:\Log.txt", ""
    AddLineToTextFile "C:\Log.txt", InfosUtilisateur
End Sub



Sub AddLineToTextFile(textFilePath As String, line As String)
Dim myFso As Object, textFile As Object
Set myFso = CreateObject("Scripting.FileSystemObject")
Set textFile = myFso.OpenTextFile(textFilePath, 8)
textFile.WriteLine line
textFile.Close
Set myFso = Nothing: Set textFile = Nothing
End Sub

Sub Log()
Dim InfosUtilisateur As String
AddLineToTextFile "C:\Log.txt", vbNewLine & Environ("username") & vbTab & Now & vbTab & ThisWorkbook.Name
End Sub

Const FichierLOG As String = "C:\Log.txt"
Sub Logging()
Dim X As Integer
X = FreeFile
Open FichierLOG For Append As #X
Print #X, Environ("username") & ": " & Date & "-" & Format(Time, "hh:mm") & ": " & ThisWorkbook.Name
Close #X
End Sub