Exporter des données en fichier texte

Bonjour Anne-So
Enregistre-le au format CSV puis éventuellement renomme-le en txt ?
Cordialement
Pascal

"Anne-So" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:056c01c3fac5$e2749ba0$a001280a@phx.gbl...
J'ai besoin d'exporter un tableau excel en fichier texte.
Lors de l'"enregistrement sous" je choisis le type de
fichier texte. cependant les séparateurs de colonnes sont
par défaut des tabulations. Avez-vous une idée pour que
les séparateurs soient un autre caractère (virgule,
etc...) ?
Merci d'avance

3 façons dans le même programme. Ouvrir le fichier texte obtenu pour
choisir

Sub ecrirelefichiertexteavecdesvirgules()
Open "c:copieunbeaufichiertexte.txt" For Output As 1
Dim i As Integer, derniereligne As Integer, dernierecolonne As
Integer
Dim j As Integer
Sheets("Données").Select
derniereligne = [a65536].End(xlUp).Row
dernierecolonne = [iv256].End(xlToLeft).Column
'Avec Write
For i = 1 To derniereligne
For j = 1 To dernierecolonne
Write #1, Cells(i, j).Value;
Next
Write #1,
Next

'Avec Print et virgules
'Le séparateur dans le fichier est entre guillemets
'le séparateur VBA n'est pas entre guillemets
For i = 1 To derniereligne
For j = 1 To dernierecolonne
Print #1, Chr(34); Cells(i, j).Value; Chr(34); ",";
Next
Print #1,
Next
'Le séparateur dans le fichier est entre guillemets
'le séparateur VBA n'est pas entre guillemets
'sauf pour les points-virgules qui collent les
'nom et les guillemets
For i = 1 To derniereligne
For j = 1 To dernierecolonne
Print #1, Chr(34); Cells(i, j).Value; Chr(34), ",",
Next
Print #1,
Next
Close
End Sub

"Anne-So" <anonymous@discussions.microsoft.com> a écrit dans le
message de news:056c01c3fac5$e2749ba0$a001280a@phx.gbl...
J'ai besoin d'exporter un tableau excel en fichier texte.
Lors de l'"enregistrement sous" je choisis le type de
fichier texte. cependant les séparateurs de colonnes sont
par défaut des tabulations. Avez-vous une idée pour que
les séparateurs soient un autre caractère (virgule,
etc...) ?
Merci d'avance