Exporter onglets au format txt

[choupi_nette]

Bonjour,

J'ai une feuille Excel avec plusieurs onglets.
Je souhaiterais exporter deux de ces onglets en utilisant du VBA
Je voudrais que les deux fichiers txt soient exportés dans le meme dossier que celui a partir duquel le fichier excel a ete crée
Quant aux noms de fichiers je voudrais qu'ils gardent le nom que celui de l'onglet qui les a généré

Quelqu'un pourrait m aider la dessus
J'ai du code a l'enregistreur de macro mais je n'arrive pas a exporter dans le meme dossier que celui ou est stocké mon fichier xls

Merci

 

[kjin]

Re : Exporter onglets au format txt

Bonjour,

Sub zyva()
export "Feuil2"
End Sub

Sub export(f$)
rep = ActiveWorkbook.Path & "\"
Sheets(f).Copy
With ActiveWorkbook
    Application.DisplayAlerts = False
    .SaveAs rep & f & ".txt", xlTextMSDOS
    .Close False
    Application.DisplayAlerts = True
End With
End Sub

Adapter le format de fichier...
A+
kjin

 

[choupi_nette]

Re : Exporter onglets au format txt

C'est adapté
Ca fonctionne
Merci beaucoup