XL 2013 Importer plusieurs fichiers txt. dans excel

[JeffJeffJeff]

Bonjour,

Je sais qu'il existe tout un tas de sujet sur l'importation de fichiers .txt dans excel, mais après avoir écumé les forums, je ne trouve aucune solution qui ne me satisfasse (ou qui fonctionne...)

Voila ce que je cherche : importer les données de différents fichiers .txt (issus d'un même dossier sur le disque dur) dans un même fichier excel. Les données des fichiers .txt étant répartis sur deux colonnes, il faudrait donc que toutes les données importées se répartissent dans différentes colonnes.
En pièce jointe, voici deux exemples de fichiers .txt

J'ai trouvé le Macro ci-dessous qui m'intéresse beaucoup car je peux lui renseigner où sont situer les fichiers .txt à importer. Le problème est qu'il n'importe qu'un fichier à la fois.

Sub txtenxls()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim fichier As String
Dim Nbr As Long
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.Filename = "*.txt"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
For Each NomFic In .FoundFiles
Workbooks.OpenText Filename:=NomFic
fichier = ActiveWorkbook.Name
ActiveSheet.Copy After:=Workbooks("Classeur1.xls").Sheets(3)
Workbooks(fichier).Activate
ActiveWorkbook.Close
Next
End With
End Sub

http://www.commentcamarche.net/forum/affich-17121473-importation-fichier-txt-dans-excel

Avez-vous une idée?

 

[Lone-wolf]

Bonsoir jeff 3 fois

Il faudrait tester comme ceci

Chemin = chemin du dossier

Rep= Dir(Chemin & "*.txt")
Do While Rep <> ""
La macro de copie
Rep = Dir
Loop

 

[Boo2bafoot]

Bonsoir Jeff,

Peut-être que VBA n'est pas la solution la plus simple pour faire exactement ce que tu veux. Puisque tu sembles être sur Excel 2013, PowerQuery est inclus et marche particulièrement bien pour fusionner des fichiers txt provenant du même dossier.

Une petite vidéo explicative trouvée sur Youtube

A essayer...