Instructions Open et Write #

Bonjour,
Je voudrais remplir un fichier texte au cours d'un programme, et j'utilise les instructions suivantes :

Code:

---

1 2 3 4

Open MomFichier For Output As #1 Write #1, "mon texte ligne 1" Write #1, "mon texte ligne 2" etc...

---

Le problème est que dans mon fichier, les guillemets apparaissent comme ci dessous :
"mon texte ligne 1"
"mon texte ligne 2"
"etc..."
alors que je voudrais seulement le texte, sans les guillemets, comme ceci :
mon texte ligne 1
mon texte ligne 2
etc...

Pouvez vous me dire qu'est ce que je dois faire svp ?
Merci

Remplace

Code:

---

Write #1

---

par

Code:

---

Print #1

---

Bonjour

Utiliser Print #1 au lieu de Write #1.

Exemple d'exportation d'un champ:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub ExportTxtChamp() repertoire = ThisWorkbook.Path Open repertoire & "\x.txt" For Output As #1 Set champ = [C1].CurrentRegion For lig = 1 To champ.Rows.Count ligne = "" For col = 1 To champ.Columns.Count ligne = ligne & champ.Cells(lig, col) & ";" Next col Print #1, Left(ligne, Len(ligne) - 1) Next lig Close #1 End Sub

---

JB

Impeccable, merci beaucoup