Comment convertir plusieurs fichiers Excel en fichiers CSV par lot dans Excel ?

La conversion de fichiers Excel au format CSV peut être effectuée à l'aide de la fonction "Enregistrer sous", mais traiter manuellement plusieurs fichiers un par un est chronophage. Si vous avez besoin de convertir plusieurs fichiers Excel en fichiers CSV séparés, ce guide propose deux méthodes efficaces :

Conversion par lot des fichiers Excel d'un dossier en fichiers CSV avec VBA

Convertir les feuilles d'un classeur en fichiers CSV distincts avec Kutools pour Excel

Conversion par lot des fichiers Excel d'un dossier en fichiers CSV avec VBA

Dans Excel, il n'y a aucune fonction intégrée pour effectuer cette tâche rapidement, sauf en utilisant VBA.

1. Ouvrez Excel, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module pour créer un nouveau module.

3. Copiez le code ci-dessous et collez-le dans la nouvelle fenêtre du module.

VBA : Conversion par lot de fichiers Excel en fichiers 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 Sub

4. Appuyez sur F5 , sélectionnez le dossier contenant les fichiers Excel que vous souhaitez convertir en fichiers CSV dans la première boîte de dialogue qui s'affiche.

5. Cliquez sur OK, puis dans la deuxième boîte de dialogue qui s'affiche, sélectionnez le dossier où placer les fichiers CSV.

6. Cliquez sur OK, maintenant les fichiers Excel du dossier ont été convertis en fichiers CSV et sauvegardés dans un autre dossier.

Convertir les feuilles d'un classeur en fichiers CSV distincts avec Kutools pour Excel

Comme nous le savons, nous ne pouvons convertir qu'un classeur entier en un seul fichier CSV dans Excel avec sa fonction Enregistrer sous. Parfois, vous devrez peut-être convertir des feuilles individuelles en fichiers CSV. Dans ces cas-là, l'utilitaire Séparer le classeur de Kutools pour Excel peut aider.

1. Activez le classeur dont vous souhaitez convertir les feuilles en fichiers CSV distincts, cliquez sur Kutools Plus > Classeur > Séparer le classeur.

2. Dans la Séparer le classeur boîte de dialogue, cochez le nom des feuilles que vous souhaitez séparer (toutes les feuilles sont cochées par défaut), cochez Enregistrer sous type, choisissez CSV (Macintosh) (*.csv) dans la liste déroulante.

3. Cliquez sur Séparer pour faire apparaître une Parcourir le dossier boîte de dialogue, choisissez ou créez un dossier pour y placer les fichiers CSV.

4. Cliquez sur OK, et le classeur sera divisé en fichiers CSV distincts.

Démo : Séparer le classeur avec Kutools pour EXCEL