Exporter dans Fichier texte

Bonjour.
Quelle est la structure de ton fichier texte ? une cellule par ligne ?
Cordialement.
Daniel
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
ACB5A7E2-689E-49AD-8F5C-E575631BD825@microsoft.com...

Bonjour à vous tous je voudrais savoir comment je peux faire pour exporter
par exemple la cellule A1 dans un fichier texte. Merci, mon but est de
faire
une boucle qui exporte une par une les cellules dans un fichier texte ceci
jusqu'à la 1ere cellule vide. Merci

Non justement je fais ca pour que toutes les cellules se retrouvent coller
les une aux autres dans mon fichier texte

Bonjour.
Quelle est la structure de ton fichier texte ? une cellule par ligne ?
Cordialement.
Daniel
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
ACB5A7E2-689E-49AD-8F5C-E575631BD825@microsoft.com...

Bonjour à vous tous je voudrais savoir comment je peux faire pour exporter
par exemple la cellule A1 dans un fichier texte. Merci, mon but est de
faire
une boucle qui exporte une par une les cellules dans un fichier texte ceci
jusqu'à la 1ere cellule vide. Merci

bonjour,

Sub ecrit()
Open "essai.txt" For Output As #1
ligne = 1
Do While Cells(ligne, 1) <> ""
Print #1, Cells(ligne, 1)
ligne = ligne + 1
Loop
Close #1
End Sub


Sub ecrit2()
Open "essai.txt" For Output As #1
ligne = 1: colonne = 1
Do While Cells(ligne, colonne) <> ""
temp = ""
Do While Cells(ligne, colonne) <> ""
temp = temp & Cells(ligne, colonne) & ";"
colonne = colonne + 1
Loop
ligne = ligne + 1
colonne = 1
Print #1, Left(temp, Len(temp) - 1)
Loop
Close #1
End Sub

cordialement jb

Je viens de tester les procédures elles ne fonctionnent pas, peut etre ai je
oublier de sélectionner une bibliohtèque ou autre chose ? Merci pour l'aide
en tout cas

bonjour,

Sub ecrit()
Open "essai.txt" For Output As #1
ligne = 1
Do While Cells(ligne, 1) <> ""
Print #1, Cells(ligne, 1)
ligne = ligne + 1
Loop
Close #1
End Sub


Sub ecrit2()
Open "essai.txt" For Output As #1
ligne = 1: colonne = 1
Do While Cells(ligne, colonne) <> ""
temp = ""
Do While Cells(ligne, colonne) <> ""
temp = temp & Cells(ligne, colonne) & ";"
colonne = colonne + 1
Loop
ligne = ligne + 1
colonne = 1
Print #1, Left(temp, Len(temp) - 1)
Loop
Close #1
End Sub

cordialement jb

Voir PJ

http://cjoint.com/?bBugwDcTLU


JB

Ca marche nickel merci le prob juste c est que dans le fichier texte les
cellules se mettent les une en dessous des autres et je voulais qu elles se
placent les une a coté des autres, y a une solution pour ca ? merci

Voir PJ

http://cjoint.com/?bBugwDcTLU


JB

Bonjour,

Je n'ai pas la macro sous les yeux, mais s'il y a une ligne du genre:

print #1, ...

mets un ; au bout de cette ligne.


"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
2D813106-81E6-4C8C-AB14-EC3F74724F95@microsoft.com...

Ca marche nickel merci le prob juste c est que dans le fichier texte les
cellules se mettent les une en dessous des autres et je voulais qu elles
se
placent les une a coté des autres, y a une solution pour ca ? merci

Voir PJ

http://cjoint.com/?bBugwDcTLU


JB

Tout fonctionne comme sur des roulettes merci à vous tous pour votre aide.
Merci encore

Bonjour,

Je n'ai pas la macro sous les yeux, mais s'il y a une ligne du genre:

print #1, ...

mets un ; au bout de cette ligne.


"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de news:
2D813106-81E6-4C8C-AB14-EC3F74724F95@microsoft.com...

Ca marche nickel merci le prob juste c est que dans le fichier texte les
cellules se mettent les une en dessous des autres et je voulais qu elles
se
placent les une a coté des autres, y a une solution pour ca ? merci

Voir PJ

http://cjoint.com/?bBugwDcTLU


JB