j'ai récupéré ce bout de code sur le site pour créer un suivi d'ouverture de fichier dans un .log
code mis dans "ThisWorkBook"
Usager = OSUserName()
Machine = OSMachineName()
Open "\\Serveur\xxxxxxx\SuiviRécapVente.log" For Append As #1
Write #1, "Usager : " & Usager & " " & "Ordi : " & Machine & " " & "Date : " & Now
Close #1
seulement, la ligne écrite se met à la fin du log, ce qui oblige à le parcourir de bout en bout, serait t'il possible d'écrire la ligne en début de log ?
Sub macrolog()
Dim d$, h$
d = Split(Now, Chr(32))(0)
h = Split(Now, Chr(32))(1)
Open ThisWorkbook.Path & "\test.log" For Output As #1
Print #1, _
"Utilisateur: " & Application.UserName, _
"JOUR: " & d & " | Heure: " & h
Close #1
End Sub