Macro .xls (avec plusieurs onglets) vers .csv

[cyrilB]

Bonjour à tous,
Je débute dans les macros Excel et je dois réaliser l'opération suivante:

Dans un répertoire j'ai plusieurs fichiers avec plusieurs onglets, je voudrais transformer tout ça en n fichiers csv.

Exemple:
Avant la macro
F1.csv => onglet1, onglet2
F2.csv => onglet3,onglet4

Après la macro
onglet1.txt
onglet2.txt
onlget3.txt
onglet4.txt

merci d'avance pour votre aide,
Cyril

 

[N_Christian]

Bonsoir Cyril

si tu enregistres la macro. avec les touches du clavier la macro s'écrit toutes seule. exemple
-------------------------------------
Sub SaveTxt()

Sheets("Feuil1").Select ' pour sélectionner l' onglet à sauvegarder

ChDir "D:\" ' pour sélectionner le chemin de destination

ActiveWorkbook.SaveAs Filename:="D:\Classeur1.txt",FileFormat:=xlText, _
CreateBackup:=False ' pour faire la sauvegarde en *.txt

End Sub

-----------------------------------------

aprés ça tu peux fair une boucle ou écrire n modulo fois la syntaxe. c'est un début. je ne sais pas si tu souhaitais plus et j'espere avoir répondu.

Passes de Bonne fêtes
A+ Christian