Comment importer plusieurs fichiers texte d’un même dossier dans une seule feuille de calcul ?
Supposons que vous deviez consolider des données à des fins de reporting ou d’analyse, et que vous receviez ces informations sous forme de plusieurs Fichier texte, tous enregistrés dans un Dossier unique. Copier et coller manuellement le contenu de chaque Fichier texte dans une même feuille de calcul peut s’avérer extrêmement chronophage et sujet aux erreurs, surtout si le nombre de fichiers est élevé ou s’ils sont régulièrement mis à jour. Heureusement, il existe des méthodes efficaces pour importer et fusionner automatiquement ces Fichier texte dans une seule feuille Excel. Cet article présente des approches pratiques pour accomplir cette tâche, garantissant précision et réduction considérable des efforts manuels. Ces méthodes conviennent à de nombreuses situations concrètes, telles que la consolidation de résultats d’enquêtes, l’importation de données de journaux ou la combinaison d’exports texte fragmentés provenant de diverses sources en un seul jeu de données.
Vous trouverez ci-dessous plusieurs méthodes pour importer rapidement plusieurs fichiers texte depuis un dossier vers Excel. Chaque méthode inclut des instructions étape par étape, des conseils pratiques et des remarques conçues pour vous aider à éviter les pièges courants.
Importer plusieurs Fichier texte depuis un dossier dans une seule feuille à l’aide de VBA
Importer un Fichier texte dans la cellule active avec Kutools pour Excel 
Importer plusieurs Fichier texte depuis un dossier dans une seule feuille à l’aide de VBA
Une méthode efficace pour importer tous les Fichier texte d’un dossier spécifique dans Excel consiste à utiliser une macro VBA. Cette solution convient particulièrement si vous effectuez fréquemment cette opération ou si vous souhaitez automatiser des tâches répétitives sans recourir à des compléments supplémentaires. Elle vous permet de traiter rapidement un grand nombre de fichiers tout en minimisant l’intervention manuelle. Toutefois, l’utilisation de VBA nécessite l’activation des macros, ce qui peut être restreint dans certains environnements, ainsi qu’une connaissance de base de l’éditeur Visual Basic pour Applications.
Avant de commencer, nous vous recommandons de sauvegarder votre classeur, car les opérations de macro ne peuvent pas être facilement annulées. Vérifiez également que vos fichiers texte présentent une structure cohérente, car des formats imprévisibles pourraient nécessiter un nettoyage manuel après l’importation.
1. Ouvrez le classeur dans lequel vous souhaitez importer le fichier texte, puis appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Dans l’éditeur VBA, cliquez sur Insertion > Module, puis copiez-collez le code VBA suivant dans la fenêtre du module :
VBA : Importer plusieurs Fichier texte depuis un dossier vers une seule feuille
Sub Test()
'UpdatebyExtendoffice
Dim xWb As Workbook
Dim xToBook As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xFiles As New Collection
Dim I As Long
Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
xFileDialog.AllowMultiSelect = False
xFileDialog.Title = "Select a folder [Kutools for Excel]"
If xFileDialog.Show = -1 Then
xStrPath = xFileDialog.SelectedItems(1)
End If
If xStrPath = "" Then Exit Sub
If Right(xStrPath, 1) <> "\" Then xStrPath = xStrPath & "\"
xFile = Dir(xStrPath & "*.txt")
If xFile = "" Then
MsgBox "No files found", vbInformation, "Kutools for Excel"
Exit Sub
End If
Do While xFile <> ""
xFiles.Add xFile, xFile
xFile = Dir()
Loop
Set xToBook = ThisWorkbook
If xFiles.Count > 0 Then
For I = 1 To xFiles.Count
Set xWb = Workbooks.Open(xStrPath & xFiles.Item(I))
xWb.Worksheets(1).Copy after:=xToBook.Sheets(xToBook.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xWb.Name
On Error GoTo 0
xWb.Close False
Next
End If
End Sub3. Appuyez sur F5 lorsque le curseur se trouve à l’intérieur du code pour l’exécuter. Une boîte de dialogue s’ouvrira alors, vous permettant de sélectionner le dossier contenant vos fichiers texte. Voir la capture d’écran :
4. Cliquez sur OK. La macro importera chaque fichier texte en tant que nouvelle feuille de calcul dans votre classeur actuel. Remarque : si les fichiers sont volumineux ou nombreux, cette opération peut prendre un certain temps. Vérifiez le résultat :
Conseil : si vos Fichier texte comportent des en-têtes ou des délimiteurs spécifiques, vous devrez peut-être modifier le code VBA pour l’adapter à votre structure de données. En cas d’erreur, assurez-vous que vos Chemin du fichier et Type de fichier sont corrects et qu’aucun Fichier texte n’est ouvert ailleurs sur votre système. Si des fichiers portent des noms identiques, des conflits de nommage de feuilles de calcul peuvent survenir.
Importer un Fichier texte dans la cellule active avec Kutools pour Excel
Lorsque vous avez uniquement besoin d’insérer le contenu d’un seul fichier texte à un emplacement précis de votre feuille de calcul, Kutools pour Excel propose une solution intuitive via son utilitaire Insérer un fichier à l'emplacement du curseur. Cette fonctionnalité est particulièrement utile pour fusionner des extraits de données sélectionnées ou importer des notes de référence directement dans des cellules ou plages définies. Contrairement aux solutions VBA, Kutools ne nécessite aucune programmation et offre une interface conviviale pour importer un fichier texte dans n’importe quelle cellule cible.
Après avoir installé gratuitementKutools pour Excel, suivez ces étapes :
1. Cliquez pour sélectionner la cellule dans laquelle vous souhaitez importer le contenu du fichier texte, puis accédez à KUTOOLS PLUS > Importation/Exportation > Insérer un fichier à l'emplacement du curseur. Voir la capture d’écran :
2. Une boîte de dialogue s’affiche. Cliquez sur Parcourir pour ouvrir la fenêtre de sélection de fichiers. Dans la liste déroulante « Type de fichier », sélectionnez Fichier texte, puis localisez le fichier texte que vous souhaitez insérer. Voir la capture d’écran :
3. Cliquez sur Ouvrir, puis sur OK. Le contenu du fichier texte sélectionné sera inséré dans la cellule choisie. Voir la capture d’écran :
Remarques : le contenu texte est importé dans la cellule sélectionnée en préservant autant que possible la mise en forme d’origine. Pour de meilleurs résultats, assurez-vous que la cellule cible dispose de suffisamment d’espace pour afficher ou développer les données importées. Pour effectuer plusieurs importations simultanées, cette fonctionnalité doit être utilisée de façon répétée ou combinée avec les outils de traitement par lots de Kutools.
Résumé : pour des importations simples ou ponctuelles de fichiers individuels, Kutools propose des options conviviales directement dans la feuille de calcul, tandis que VBA s’impose comme la solution idéale pour les utilisateurs recherchant une personnalisation avancée ou un traitement par lots sans dépendre de compléments externes.
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