Une macro pour convertir en format .csv [Fermé]

Signaler
Messages postés
195
Date d'inscription
mardi 26 février 2008
Statut
Membre
Dernière intervention
31 mars 2011
-
Le Pingou
Messages postés
9517
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
30 décembre 2019
-
Bonjour,

Voilà pour problème.

Je suis sous XP, j'ai environ 500 classeurs excel qui sont muti-feuille et qui possèdent tous une feuille nommée "d_bilan".

Je dois convertir donc chaque feuille "d_bilan" dans 500 classeurs au format .csv.

Es que qu'un serait me faire une macro pour faire celà.

Merci d'avance pour votre aide.

4 réponses

Messages postés
195
Date d'inscription
mardi 26 février 2008
Statut
Membre
Dernière intervention
31 mars 2011
11
Bonsoir,

J'espère que j'ai été claire dans l'exposé de mon problème.

Merci de votre aide.
Messages postés
195
Date d'inscription
mardi 26 février 2008
Statut
Membre
Dernière intervention
31 mars 2011
11
Bonjour tout le monde,

arfffffffffff je suis en galère.

Bonne journée.
Messages postés
195
Date d'inscription
mardi 26 février 2008
Statut
Membre
Dernière intervention
31 mars 2011
11
Bonjour tout le monde,

Celà n'inspire personne en ce beau Week-end de pentecôte.

Bonne journée.
Messages postés
9517
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
30 décembre 2019
997
Bonsoir,
Une proposition:
Sub ClasseurCVS()
' Copier/déplacer la feuille "d_bilan"
Sheets("d_bilan").Select
Sheets("d_bilan").Copy
ChDir "C:\Documents and Settings\Jean-Pierre\Bureau"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Jean-Pierre\Bureau\Classeur1.csv", FileFormat:= _
xlCSV, CreateBackup:=False
End Sub
Pas oublier d'adapter le chemin du répertoire (lignes en gras)