Comment convertir plusieurs fichiers Excel en fichiers CSV par lots dans Excel ?
La conversion de fichiers Excel au format CSV peut s’effectuer via la fonction « Enregistrer sous », mais traiter manuellement plusieurs fichiers un par un s’avère très chronophage. Si vous devez convertir en lot plusieurs fichiers Excel en fichiers CSV distincts, ce guide vous présente deux méthodes efficaces :
Convertir par lots les Fichiers Excel d’un dossier en fichiers CSV avec VBA
Convertir les feuilles d’un classeur en fichiers CSV séparés avec Kutools pour Excel 
Convertir par lots les Fichiers Excel d’un dossier en fichiers CSV avec VBA
Dans Excel, aucune fonction intégrée ne permet d’accomplir cette tâche rapidement, sauf en ayant recours à VBA.
1. Ouvrez Excel et appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module afin de créer un nouveau module.
3. Copiez le code ci-dessous et collez-le dans la nouvelle fenêtre du module.
VBA : Convertir par lots les Fichiers Excel en CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub4. Appuyez sur la touche F5, puis, dans la première boîte de dialogue qui s’ouvre, sélectionnez le dossier contenant les fichiers Excel que vous souhaitez convertir en fichiers CSV.
5. Cliquez sur OK, puis, dans la deuxième boîte de dialogue, choisissez le dossier où enregistrer les fichiers CSV.
6. Cliquez sur OK, et les fichiers Excel du dossier seront automatiquement convertis en fichiers CSV et enregistrés dans un autre dossier.
Convertir les feuilles d’un classeur en fichiers CSV séparés avec Kutools pour Excel
Comme vous le savez, Excel ne permet de convertir un classeur entier en un seul fichier CSV qu’à l’aide de la fonction « Enregistrer sous ». Mais que faire si vous souhaitez exporter des feuilles individuelles au format CSV ? Dans ce cas, l’utilitaire Séparer le classeur de Kutools pour Excel est exactement ce qu’il vous faut.
1. Ouvrez le classeur dont vous souhaitez convertir les feuilles en fichiers CSV séparés, puis cliquez sur KUTOOLS PLUS > Classeur > Séparer le classeur.
2. Dans la boîte de dialogue Séparer le classeur, cochez les noms des feuilles que vous souhaitez fractionner (toutes les feuilles sont sélectionnées par défaut), activez l’option Enregistrer sous, puis choisissez CSV (*.csv) dans le menu déroulant.
3. Cliquez sur Fractionner pour afficher la boîte de dialogue Parcourir les dossiers, puis choisissez ou créez un dossier destiné à recevoir les fichiers CSV.
4. Cliquez sur OK et le classeur sera divisé en fichiers CSV distincts.
Kutools pour Excel– Boostez Excel avec plus de 300 outils essentiels, pour gagner en rapidité et en simplicité, et profitez des fonctionnalités d’intelligence artificielle pour un traitement de données plus intelligent et une productivité accrue.Obtenez-le dès maintenant
Démo : Séparer le classeur à l’aide de Kutools pour Excel
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels