Ecrire a la ligne dans un fichier plat
Bonjour,
je voudrais ecrire dans un fichier plat depuis access.
j'utilise ce code:
Code:
1
2
3
4
5
6
7
8
9
10
| Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Dim oTxt As Scripting.TextStream
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(Application.CurrentProject.path & "\" & StrConv(Format(Now(), "MMMM YYYY"), vbUpperCase) & "\Log_Conso.txt")
Set oTxt = oFl.OpenAsTextStream(ForWriting)
With oTxt
.WriteLine Now & " | " & "ERREUR " & " | " & leMessage
end with |
le problème est que, quand le code est rapelé dans le process, ça efface la ligne précédement ecrite au lieu d'en créer une nouvelle. J'ai pourtant bien utilisé la methode .writeLine
Quelqu'un aurait-il une idée ?
merci par avance de votre aide.
