Discussion :

[philgarnier]

Bonjour,
Nous avons un problème lors de l'insertion de donnée sur un fichier.
Nous prenons des zones dates en entree et à chaque passage,l'ecriture
se fait sur un fichier en sortie.
par contre,chaque passage nous ecrase les données precedentes.

[RadPAT]

Salut,

tu peux essayer :

Code :

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

f.WriteLine

à la place de

Code :

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

f.Write

ou un

Code :

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

f.Write  .../...   & VbCrlf

ca devrait etre bon.

A++

[Thulkash]

A CHAQUE fois que tu ouvres un fichier en écriture de cette façon

Code :

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

1
2
Const ForWriting = 2
Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", ForWriting, True)

tu ECRASES ce qu'il y a dedans.
Pour éviter ce problème, il faut l'ouvrir avec une constante égale à 8, ce qui permet d'ajouter à la suite du fichier les nouvelles lignes. Par exemple :

Code :

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

1
2
Const ForAppending = 8
Set f = fso.OpenTextFile("C:\cours_ib\testfile.txt", ForAppending, True)

A toi à remplacer l'option d'ouverture du fichier là où il faut
@+