Comment convertir plusieurs fichiers CSV en fichiers XLS(X) par lot dans Excel ?

Convertir un fichier CSV en fichier XLS ou XLSX est très simple en utilisant la fonction Enregistrer sous. Cependant, convertir plusieurs fichiers CSV en fichiers XLS ou XLSX à partir d'un dossier peut être chronophage si vous les enregistrez un par un manuellement. Voici une macro qui permet de convertir rapidement tous les fichiers CSV d'un dossier en fichiers XLS(x) en lot.

Conversion par lot de fichiers CSV en fichiers XLS(X) avec un code macro

Conversion par lot de fichiers CSV en fichiers XLS(X) avec un code macro

Pour convertir plusieurs fichiers CSV d'un dossier en fichiers XLS(X), vous pouvez suivre les étapes ci-dessous :

1. Ouvrez un nouveau classeur, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications et cliquez sur Insérer > Module. Voir capture d'écran :

Remarque : Assurez-vous que tous les fichiers CSV que vous souhaitez convertir sont fermés.

2. Ensuite, collez le code macro ci-dessous dans le script du Module, et appuyez sur la touche F5 pour exécuter le code.

VBA : Convertir CSV en XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. Dans la boîte de dialogue qui s'affiche, sélectionnez le dossier contenant les fichiers CSV que vous souhaitez convertir. Voir capture d'écran :

4. Cliquez sur OK; tous les fichiers CSV du dossier sélectionné ont été convertis en fichiers XLS.

Astuce : Si vous souhaitez convertir des fichiers CSV en fichiers XLSX, utilisez le code VBA ci-dessous.

VBA : Convertir des fichiers CSV en fichiers XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

Articles connexes :

• Comment convertir un fichier csv en fichier xls ou importer/ouvrir un fichier csv dans Excel ?
• Comment convertir un document Word en feuille de calcul Excel ?