Excel : Enregistrer ou exporter toutes les feuilles vers des fichiers CSV ou texte séparés (2 méthodes simples)

Travailler avec des classeurs Excel contenant plusieurs feuilles de calcul est courant dans l'analyse de données et les rapports d'entreprise. Souvent, vous devrez exporter chaque feuille en tant que fichier CSV (valeurs séparées par des virgules) ou fichier texte individuel pour le partage de données, l'intégration avec d'autres systèmes ou à des fins d'archivage. Bien qu'Excel ne propose pas de fonctionnalité "exporter toutes les feuilles" intégrée, il existe plusieurs méthodes efficaces pour accomplir cette tâche.

Enregistrer ou exporter toutes les feuilles vers des fichiers CSV ou texte avec du code VBA
Enregistrer ou exporter toutes ou certaines feuilles vers des fichiers CSV ou texte avec Kutools pour Excel

Enregistrer ou exporter toutes les feuilles vers des fichiers CSV ou texte avec du code VBA

Avec les codes VBA ci-dessous, vous pouvez enregistrer toutes les feuilles de calcul d'un classeur dans des fichiers CSV ou texte séparés. Veuillez procéder comme suit.

Exporter ou convertir toutes les feuilles en fichiers CSV séparés

1. Appuyez simultanément sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic Application.

2. Dans la fenêtre Microsoft Visual Basic Application, cliquez sur Insérer > Module. Ensuite, copiez et collez le code suivant dans la fenêtre Module.

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. Appuyez sur la touche F5 pour exécuter le code. Vous verrez que tous les fichiers CSV exportés sont situés dans le dossier Documents. Chaque feuille de calcul est enregistrée sous forme de fichier .csv distinct portant le même nom que la feuille. Voir capture d'écran :

Exporter ou convertir toutes les feuilles en fichiers texte séparés

Le code suivant peut vous aider à exporter ou convertir toutes les feuilles du classeur en fichiers texte séparés.

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Les fichiers texte exportés sont également situés dans le dossier Documents. Voir capture d'écran :

Enregistrer ou exporter toutes ou certaines feuilles vers des fichiers CSV ou texte avec Kutools pour Excel

Kutools pour Excel offre une fonctionnalité puissante et conviviale pour exporter rapidement toutes ou certaines feuilles sélectionnées en fichiers CSV ou texte individuels en quelques clics seulement.

1. Cliquez sur Kutools Plus > Classeur > Séparer le classeur. Voir capture d'écran :

2. Dans la boîte de dialogue Séparer le classeur :

• 1). Si vous souhaitez convertir toutes les feuilles en fichiers CSV ou texte, conservez simplement toutes les noms de feuilles cochés dans la zone Nom de la feuille de calcul ; si vous souhaitez convertir plusieurs feuilles uniquement, conservez-les cochées et décochez celles que vous ne souhaitez pas convertir.
• 2). Dans la section Options, cochez la case Spécifier le format d'enregistrement, puis sélectionnez Texte Unicode (*.txt) ou CSV (Macintosh) (*.csv) dans la liste déroulante.
• 3). Cliquez sur le bouton Séparer.

3. Dans la boîte de dialogue Parcourir un dossier, spécifiez un dossier pour enregistrer les fichiers exportés, puis cliquez sur le bouton OK.

Maintenant, toutes les feuilles ou feuilles spécifiées sont converties en fichiers CSV ou texte séparés, et se trouvent dans le dossier que vous avez spécifié ci-dessus.

Démo : Enregistrer, exporter ou convertir plusieurs/toutes les feuilles en fichiers CSV ou texte avec Kutools pour Excel