Comment importer plusieurs fichiers texte dans autant de feuilles distinctes ?
Supposons que vous ayez plusieurs fichiers texte dans un dossier de votre ordinateur et que vous souhaitiez les importer dans un classeur Excel, en plaçant chaque fichier texte dans une feuille de calcul distincte. Copier-coller chaque fichier texte un par un dans une feuille prend énormément de temps ; je vais donc vous présenter quelques astuces pour résoudre ce problème efficacement.
Importer plusieurs Fichier texte dans des feuilles distinctes à l’aide d’un code VBA
Importer plusieurs Fichier texte dans des feuilles distinctes à l’aide d’un code VBA
Le code VBA suivant vous permet d’importer chaque fichier texte dans des feuilles distinctes d’un nouveau classeur en une seule opération. Voici la marche à suivre :
1. Maintenez enfoncées les touches ALT + F11 dans Excel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du Module.
Code VBA : Importer plusieurs Fichier texte dans des feuilles distinctes :
Sub CombineTextFiles()
'updateby Extendoffice
Dim xFilesToOpen As Variant
Dim I As Integer
Dim xWb As Workbook
Dim xTempWb As Workbook
Dim xDelimiter As String
Dim xScreen As Boolean
On Error GoTo ErrHandler
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
xDelimiter = "|"
xFilesToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt", , "Kutools for Excel", , True)
If TypeName(xFilesToOpen) = "Boolean" Then
MsgBox "No files were selected", , "Kutools for Excel"
GoTo ExitHandler
End If
I = 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
xTempWb.Sheets(1).Copy
Set xWb = Application.ActiveWorkbook
xTempWb.Close False
xWb.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:="|"
Do While I < UBound(xFilesToOpen)
I = I + 1
Set xTempWb = Workbooks.Open(xFilesToOpen(I))
With xWb
xTempWb.Sheets(1).Move after:=.Sheets(.Sheets.Count)
.Worksheets(I).Columns("A:A").TextToColumns _
Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, _
Tab:=False, Semicolon:=False, _
Comma:=False, Space:=False, _
Other:=True, OtherChar:=xDelimiter
End With
Loop
ExitHandler:
Application.ScreenUpdating = xScreen
Set xWb = Nothing
Set xTempWb = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, , "Kutools for Excel"
Resume ExitHandler
End Sub
3. Après avoir collé le code ci-dessus, appuyez sur la touche F5 pour exécuter ce code. Dans la fenêtre qui s’ouvre, indiquez le dossier contenant les fichiers texte, accédez-y et sélectionnez les fichiers texte que vous souhaitez importer dans les feuilles de calcul (voir capture d’écran) :
4. Cliquez ensuite sur le bouton Ouvrir. Tous les fichiers texte sélectionnés sont importés dans un nouveau classeur, chaque fichier étant placé dans une feuille de calcul distincte.
5. Enfin, vous pouvez enregistrer le nouveau classeur selon vos besoins.
Fractionner un classeur en plusieurs fichiers texte / pdf / csv / xlsx distincts avec Kutools pour Excel
Parfois, vous devrez effectuer l’opération inverse de celle décrite ci-dessus, c’est-à-dire fractionner un classeur en plusieurs fichiers texte distincts. La fonction Kutools pour Excel »Séparer le classeur vous permet de réaliser cette tâche rapidement et facilement.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Activez le classeur que vous souhaitez fractionner en plusieurs fichiers texte.
2. Cliquez sur Entreprise > Classeur > Séparer le classeur (voir capture d’écran) :
3. Dans la boîte de dialogue Séparer le classeur :
(1.) Cochez les feuilles de calcul que vous souhaitez diviser.
(2.) Cochez Spécifier le format d’enregistrement, puis choisissez le type de fichier dans lequel vous souhaitez enregistrer vos documents. Par exemple, vous pouvez sélectionner txt, csv, pdf, xlsx ou xls selon vos besoins.
(3.) Cliquez ensuite sur le bouton Fractionner, puis indiquez, dans la boîte de dialogue suivante, le dossier de destination des fichiers séparés.
 |  |  |
4. Cliquez ensuite sur le bouton OK, et vos feuilles de calcul sélectionnées seront fractionnées et enregistrées dans le dossier souhaité au format choisi.
Kutools pour Excel – Doté de plus de 300 outils essentiels pour Excel, il rend vos tâches plus rapides, plus simples et plus efficaces.Téléchargez 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