Comment convertir plusieurs fichiers CSV en fichiers XLS(X) en une seule fois dans Excel ?
Convertir un fichier CSV en XLS ou XLSX est un jeu d’enfant grâce à la fonction « Enregistrer sous ». Cependant, traiter plusieurs fichiers CSV d’un même dossier devient vite fastidieux si vous les convertissez un par un manuellement. Découvrez ici une macro efficace pour transformer en un clin d’œil tous les fichiers CSV d’un dossier en fichiers XLS(X) !
Conversion par lots de fichiers CSV en fichiers XLS(X) à l’aide d’une macro
Conversion par lots de fichiers CSV en fichiers XLS(X) à l’aide d’une macro
Pour convertir plusieurs fichiers CSV d’un même dossier en fichiers XLS(X), procédez comme suit :
1. Activez un nouveau classeur, puis appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications. Cliquez ensuite sur Insertion > Module. Voir la capture d’écran :
Remarque : Assurez-vous que tous les fichiers CSV que vous souhaitez convertir sont fermés.
2. Collez ensuite le code de macro ci-dessous dans le script du Module, puis appuyez sur la touche F5 pour exécuter le code.
VBA : Convertir un fichier 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 Sub3. Dans la boîte de dialogue qui s’ouvre, sélectionnez le dossier contenant les fichiers CSV à convertir. Voir la capture d’écran :
4. Cliquez sur OK : tous les fichiers CSV du dossier sélectionné sont alors convertis en fichiers XLS dans ce même dossier.
Astuce : Si vous souhaitez convertir des fichiers CSV en fichiers XLSX, utilisez le code VBA ci-dessous.
VBA : Convertir des fichiers CSV en 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 SubConvertir ou exporter une plage vers des fichiers XLS séparés, Word, PDF et plus encore |
Généralement, Excel n’offre pas d’option rapide pour exporter ou enregistrer directement une plage sélectionnée au format CSV, Excel ou tout autre type de fichier. Pour y parvenir, vous devez soit utiliser une macro VBA, soit copier manuellement la plage dans un nouveau classeur avant de l’enregistrer. Kutools pour Excel simplifie cette opération grâce à son utilitaire Exporter la plage vers un fichier, qui vous permet d’effectuer ces tâches rapidement et facilement en quelques clics seulement. |
|
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 des données plus intelligent et une productivité accrue.Téléchargez-le dès maintenant |
Articles associés :
- Comment convertir un fichier CSV en fichier XLS, ou importer/ouvrir un fichier CSV dans Excel ?
- Comment transformer un document Word en feuille de calcul 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