Sub EcritFiche
'-- Ecriture d'un fichier Log --
Dim TitreFic As String
Dim Essai As Integer
Dim Fichier As String, Ordi As String, Teste As String, Rpi As String
Ordi = Environ("COMPUTERNAME")
Rpi = Environ("USERNAME")
TitreFic ="c:\log\Espion.txt")
Fichier = TitreFic & Replace(Replace(Now, "/", "-"), ":", "-") & "-" & Rpi & ".log"
Open Fichier For Append As #2
Write #2, Now
Write #2, Ordi, Rpi
End If
Close #2