Une macro pour convertir en format .csv

Fermé
debutante-excel Messages postés 195 Date d'inscription mardi 26 février 2008 Statut Membre Dernière intervention 31 mars 2011 - 29 mai 2009 à 16:18
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 31 mai 2009 à 23:35
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.
A voir également:

4 réponses

debutante-excel Messages postés 195 Date d'inscription mardi 26 février 2008 Statut Membre Dernière intervention 31 mars 2011 11
29 mai 2009 à 19:40
Bonsoir,

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

Merci de votre aide.
0
debutante-excel Messages postés 195 Date d'inscription mardi 26 février 2008 Statut Membre Dernière intervention 31 mars 2011 11
30 mai 2009 à 07:29
Bonjour tout le monde,

arfffffffffff je suis en galère.

Bonne journée.
0
debutante-excel Messages postés 195 Date d'inscription mardi 26 février 2008 Statut Membre Dernière intervention 31 mars 2011 11
30 mai 2009 à 18:42
Bonjour tout le monde,

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

Bonne journée.
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
31 mai 2009 à 23:35
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)
0