Copier une colonne d'un fichier Excel dans un fichier TEXT.

Bonjour,

J'essaie d'écrire une Macro Excel qui me permettrait de copier une colonne dans un fichier TEXT (xxx.txt).

Quelqu'un pourrait il m'aider ? Je n'arrive pas à trouver la solution...

Code:

---

1 2 3 4 5 6 7

FichD = ActiveWorkbook.Name FichS = Dir(Repertoire & "*.xls") Do While FichS <> "" Range("O28:O500").Select LeTexte = Range("O28:O500").Select Print #numfic, LeTexte ...

---

Bref ... je n'arrive pas du tout à copier / coller une colonne dans un fichier ...
Merci d'avance si qqun peut me venir en aide.

Cdt,
Jérémie

Bonjour,
pour ecrire les données dans un fichier texte, il va falloir le faire cellule par cellule
soit

Code:

---

1 2 3 4

For ligne = 28 To 500 Print #numfic, Cells(ligne,15) Next ligne

---

Salut, consulter http://warin.developpez.com/access/fichiers/#LII

Merci beaucoup pour votre aide.

En effet, pour écrire les données dans un fichier texte, il faut le faire cellule par cellule ...