insertion donnée dans fichier

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.

Salut,

tu peux essayer :

Code:

---

f.WriteLine

---

à la place de

Code:

---

f.Write

---

ou un

Code:

---

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

---

ca devrait etre bon.

A++

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

Code:

---

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:

---

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 :)
@+