Comment exporter chaque colonne d’Excel vers des fichiers texte individuels ?
Dans Excel, exporter une feuille de calcul entière vers un fichier texte est simple grâce à la fonction **Enregistrer sous**. Toutefois, si vous souhaitez enregistrer chaque colonne dans un fichier texte distinct, quelques étapes supplémentaires sont nécessaires. Ce guide vous explique comment exporter efficacement chaque colonne individuellement à l’aide d’un code VBA, ou, alternativement, comment enregistrer plusieurs feuilles de calcul dans des fichiers texte, PDF ou CSV séparés avec **Kutools pour Excel**.
Exporter chaque colonne vers des fichiers Fichier texte individuels avec du code VBA
Exporter chaque colonne vers des fichiers Fichier texte individuels avec du code VBA
Le code VBA suivant vous permet d’enregistrer les données de chaque colonne dans un fichier texte distinct depuis Excel. Voici la marche à suivre :
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre Module.
Code VBA : exporter chaque colonne vers des fichiers Fichier texte individuels :
Sub SaveValueToText()
Dim xFRNum, xFCNum As Long
Dim xStrDir As String
Dim xMaxR, xMaxC As Integer
Dim xCells As Range
Dim xIntX As Long
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
With xObjFD
.AllowMultiSelect = False
.Show
If .SelectedItems.Count > 0 Then
xStrDir = .SelectedItems.Item(1) & Application.PathSeparator
Else
Exit Sub
End If
End With
Set xCells = ActiveSheet.Cells
xMaxR = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
xMaxC = xCells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
For xFCNum = 1 To xMaxC
Open xStrDir & xFCNum & "_" & ActiveSheet.Cells(1, xFCNum).Text & ".txt" For Output As #1
For xFRNum = 1 To xMaxR
Print #1, Cells(xFRNum, xFCNum).Value
Next xFRNum
Close #1
Next
End Sub
3. Après avoir collé le code, appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue Navigateur s’ouvre alors ; choisissez un dossier pour enregistrer vos fichiers texte. Voir capture d’écran :
4. Cliquez ensuite sur le bouton OK : les données de chaque colonne de la feuille active sont alors exportées vers des fichiers texte individuels. Voir la capture d’écran :
Exporter plusieurs feuilles de calcul vers des fichiers texte / PDF / CSV individuels avec Kutools pour Excel
Si vous devez exporter plusieurs feuilles de calcul vers des fichiers texte, PDF ou CSV individuels, la fonctionnalité Kutools pour Excel « Séparer le classeur » peut vous être très utile.
Après avoir installé Kutools pour Excel,veuillez procéder comme suit :
1. Cliquez sur KUTOOLS PLUS > Classeur > Séparer le classeur, voir la capture d’écran :
2. Dans la boîte de dialogue Séparer le classeur, cochez les feuilles que vous souhaitez enregistrer au format txt, pdf ou csv, puis activez l’option Spécifier le format d'enregistrement, sélectionnez le type de fichier souhaité, puis cliquez sur le bouton Diviser. Dans la boîte de dialogue Parcourir les dossiers qui s’affiche, choisissez un dossier pour enregistrer les fichiers exportés (voir capture d’écran) :
3. Cliquez ensuite sur le bouton OK, et vos fichiers Feuilles de calcul sélectionnés seront exportés vers les types de fichiers individuels spécifiques dont vous avez besoin. Voir la capture d’écran :
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
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