Une macro pour convertir en format .csv
debutante-excel
Messages postés
195
Statut
Membre
-
Le Pingou Messages postés 12720 Date d'inscription Statut Contributeur Dernière intervention -
Le Pingou Messages postés 12720 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
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Hp usb disk storage format tool - Télécharger - Stockage
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)