Export en txt

[mamour60]

Bonjour a tous,

Est ce que quel'qun a une macro pour enregistrer la range("A1:F25")
en fichier texte ou csv.

Merci a tous

bonne aprés midi

Bruno

[job75]

Bonjour,
C'est un fichier qui est enregistré sous, pas une plage.
Le code d'enregistrement est obtenu facilement par l'enregistreur de macro.
A+

[PascalXLD]

Bonjour

ainsi peut-être

Sub Macro1()

    Range("A1:F25").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\tmp\Classeur2.txt", FileFormat:=xlText, CreateBackup:=False
    ActiveWorkbook.Close False
End Sub

[mamour60]

Bonjour Job75 et PascalXLD,

Cela fonctionne mais je voudrais avec des ","ou des ";" pour séparer
les cells et c'est vraiment de la cells a1:f25 car j'ai d'autre tableau
que je ne veux pas mettre en Txt juste la base de donnée pour pouvoir la
reprendre plus tard si besoin

@+

Bruno

[PascalXLD]

Re

Si tu fais joujou avec l'enregistreur de macro je pense que tu aurais pu voir qu'il faut modifier ainsi

Sub Macro1()

    Range("A1:F25").Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:= _
        "C:\tmp\Classeur2.csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close False
End Sub

[mamour60]

Re

Oup !!! oui tu as raison....

@+

Bruno