Discussion :

[Nako_lito]

Bonjour,

je voudrais ecrire dans un fichier plat depuis access.
j'utilise ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Jean-Philippe André]

salut,
dans ton code tu ouvres le fichier en mode ForWriting

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenAsTextStream(ForWriting)

dans le cas ou tu souhaites ajouter des lignes, il faut passer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenAsTextStream(ForAppending)

comme indique dans la
http://access.developpez.com/faq/?page=Fichier#FicTxt

[Nako_lito]

Merci