Exporter feuille excel en txt

Bonjour,

Quand tu fais "Enregistrer sous..." il y a plusieurs formats dont "Format
Texte (Délimité par des espaces)". C'est une traduction de l'anglais mais il
y a quelque chose comme cela. Cela devrait te convenir.

--
Patrick

"Michel Berthelemy" <michel.berthelemy@meteo.fr> wrote in message
news:e76lHsaxEHA.3276@TK2MSFTNGP15.phx.gbl...

Bonjour
Comment exporter simplement une feuille excel en fichier teste, sans
tabulations comme séparateurs entre les colonnes, mais uniquement avec un
espace.
J'ai tenté de les supprimer après coup dans word ou wordpad, mais les
tabulations ne sont pas reconnues...

Bonjour,

Quand tu fais "Enregistrer sous..." il y a plusieurs formats dont "Format
Texte (Délimité par des espaces)". C'est une traduction de l'anglais mais il
y a quelque chose comme cela. Cela devrait te convenir.

c'est en *.prn et ça me remet des tabulations..

Bonjour,

Essaie cela:

(En prenant pour acquis que la colonne la plus longue est la colonne A
et que la ligne la plus longue est la ligne 1)

Sub ecrirelefichiertexteavecdesespaces()
Open "c:copieunbeaufichiertexte.txt" For Output As 1
Dim i As Long, derniereligne As Long
Dim dernierecolonne As Byte, j As Byte
derniereligne = [a65536].End(xlUp).Row
dernierecolonne = [iv1].End(xlToLeft).Column
'Avec Print et espace
For i = 1 To derniereligne
If i > 1 Then
Print #1,
End If
For j = 1 To dernierecolonne
If j > 1 Then
Print #1, Chr(32); Cells(i, j).Value; Chr(32);
Else
Print #1, Cells(i, j).Value; Chr(32);
End If
Next
Next
Close
End Sub


"Michel Berthelemy" <michel.berthelemy@meteo.fr> a écrit dans le
message de news:e76lHsaxEHA.3276@TK2MSFTNGP15.phx.gbl...

Bonjour
Comment exporter simplement une feuille excel en fichier teste, sans
tabulations comme séparateurs entre les colonnes, mais uniquement
avec

un espace.
J'ai tenté de les supprimer après coup dans word ou wordpad, mais
les

tabulations ne sont pas reconnues...