Ecrire dans un .log

[francedemo]

bonjour à tous,

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 ?

merci d'avance

 

[vbacrumble]

Re : Ecrire dans un .log

Bonjour


Avec OutPut à la place de Append

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