Discussion :

[pedro4l]

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

Code :

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

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

[AlainTech]

Remplace

Code :

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

Write #1

par

Code :

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

Print #1

[Invité]

Bonjour

Utiliser Print #1 au lieu de Write #1.

Exemple d'exportation d'un champ:

Code :

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

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

[pedro4l]

Impeccable, merci beaucoup