Discussion :

[cycy75]

Bonjour tout le monde,

J'ai un classeur Excel contenant plusieurs feuilles.
Je voudrai extraire le contenu d'une feuille du classeur et sauvegarder dans un fichier Texte.

Cela est-il possible?

J'ai vu plusieurs forums et je n'arrive pas à trouver une réponse ou un bout de code me permettant de commencer un peu

J'ai testé ce bout de code

Code :

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

1
2
ActiveSheet.SaveAs Filename:= _
        "non_de_fichier" & ".txt", FileFormat:=xlText, CreateBackup:=False

Mais j'ai une erreur:

"erreur d'exécution 1004"

Quelqu'un aurait-il une idée?
FileFormat:=xlText existe-t-il encore sur Excel 2003?


Merci d'avance

Cordialement

[aalex_38]

bonjour,

je n'y arrive pas non plus en travaillant directement sur la feuille !

En copiant la feuille dans un nouveau classeur, ça marche.

Vu avec le recorder de excel :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro4()
 
 
    Sheets("Jours").Copy
    ActiveWorkbook.SaveAs Filename:="D:\xxx\xxx\testok.txt", FileFormat:= _
        xlText, CreateBackup:=False
    ActiveWorkbook.Save
    ActiveWorkbook.Close
End Sub

[cycy75]

Merci aalex_38, cela fonctionne nickel.

Par contre l'intérieur de fichier est un peu brouillon.
J'ai plusieurs colonnes dans ma feuille et la mise en forme et un peu catastrophique un fois convertis dans le fichier texte.

Y a-t'il un moyen de régler ca?

[aalex_38]

Bonjour,

J'ai plusieurs colonnes dans ma feuille et la mise en forme et un peu catastrophique un fois convertis dans le fichier texte.

Dans ce cas là il vaut peut être mieux ecrire directement ce que tu veux dans un fichier texte.

Un exemple ici