Une macro pour convertir en format .csv
debutante-excel
Messages postés
195
Statut
Membre
-
Le Pingou Messages postés 12369 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12369 Date d'inscription Statut Contributeur Dernière intervention -
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.
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:
- Une macro pour convertir en format .csv
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Format epub - Guide
- Format factory - Télécharger - Conversion & Codecs
- Hp usb disk storage format tool - Télécharger - Stockage
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
4 réponses
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)
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)