Discussion :

[jerem_orga]

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 :

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

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

[helas]

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

Code :

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

1
2
3
4
 
 For ligne = 28 To 500
  Print #numfic, Cells(ligne,15)
 Next ligne

[kiki29]

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

[jerem_orga]

Merci beaucoup pour votre aide.

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