Comment importer plusieurs fichiers texte dans plusieurs feuilles ?
Supposons qu'il y ait plusieurs fichiers texte dans un dossier de votre ordinateur, et que vous souhaitiez importer ces fichiers texte dans un classeur Excel en plaçant chaque fichier texte dans des feuilles de calcul distinctes. Copier et coller chaque fichier texte dans une feuille de calcul une par une prend beaucoup de temps ; ici, je vais discuter de quelques astuces pour résoudre ce problème.
Importer plusieurs fichiers texte dans des feuilles de calcul distinctes avec du code VBA
Diviser un classeur en plusieurs fichiers texte / pdf / csv / xlsx séparés avec Kutools pour Excel
Importer plusieurs fichiers texte dans des feuilles de calcul distinctes avec du code VBA
Le code VBA suivant peut vous aider à importer chaque fichier texte dans des feuilles distinctes au sein d'un nouveau classeur en une seule fois, veuillez procéder comme suit :
1. Maintenez les touches ALT + F11 enfoncées dans Excel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre Module.
Code VBA : Importer plusieurs fichiers texte dans des feuilles de calcul 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, et dans la fenêtre qui s'affiche, veuillez spécifier le dossier contenant les fichiers texte, allez dans le dossier pour sélectionner les fichiers texte que vous souhaitez importer dans les feuilles de calcul, voir capture d'écran :
4. Ensuite, cliquez sur le bouton Ouvrir, tous les fichiers texte sélectionnés ont été importés dans un nouveau classeur et chaque fichier est placé individuellement dans une feuille de calcul.
5. Enfin, vous pouvez enregistrer le nouveau classeur selon vos besoins.
Diviser un classeur en plusieurs fichiers texte / pdf / csv / xlsx séparés avec Kutools pour Excel
Parfois, vous devrez peut-être effectuer des opérations inverses de la tâche ci-dessus, c'est-à-dire diviser un classeur en fichiers texte distincts. L'utilitaire Diviser le Classeur de Kutools pour Excel peut vous aider à accomplir cette tâche rapidement et facilement.
Après avoir installé Kutools pour Excel, veuillez procéder comme suit :
1. Activez le classeur que vous souhaitez diviser en plusieurs fichiers texte.
2. Cliquez sur Entreprise > Classeur > Diviser le Classeur, voir capture d'écran :
3. Dans la boîte de dialogue Diviser le Classeur :
(1.) Cochez les feuilles de calcul que vous souhaitez diviser.
(2.) Cochez Définir le format de sauvegarde, puis choisissez le format de fichier dans lequel vous souhaitez enregistrer, par exemple, vous pouvez choisir le format de fichier txt, csv, pdf, xlsx ou xls selon vos besoins.
(3.) Ensuite, cliquez sur le bouton Diviser, dans la boîte de dialogue qui apparaît ensuite, spécifiez un dossier pour exporter les fichiers séparés.
 |  |  |
4. Ensuite, cliquez sur le bouton OK, et vos feuilles de calcul sélectionnées seront divisées et enregistrées dans le dossier souhaité avec le format dont vous avez besoin.
Kutools pour Excel - Regorge de plus de 300 outils essentiels pour Excel. Profitez de fonctionnalités IA définitivement gratuites ! Téléchargez dès maintenant !
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels