Discussion :

[man12345]

Bonjour,

A l'aide de la fonction ImportText ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ImportText(NomFichier As String, Cible As Range)
    Dim WBS As Workbook
 
 
   Workbooks.OpenText Filename:=NomFichier, _
    StartRow:=1, _
        DataType:=xlDelimited, _
        Semicolon:=True, _
        FieldInfo:=Array(1, 1), _
        TrailingMinusNumbers:=True
        Set WBS = ActiveWorkbook
    WBS.Worksheets(1).UsedRange.Copy Destination:=Cible
    WBS.Close
End Sub

j'arrive à importer sur une feuille excel le contenu de plusieurs fichiers texte commençant pas le même nom (test1_) et contenu dans un répertoire où j'ai plusieurs fichiers texte de nom différent(test2_, test3_, ...).
Ce que je souhaiterai c'est importer le nom du fichier également.
Avoir en sortie sur ma feuille excel:



Si vous avez des solutions ou des pistes où je pourrai puiser.
Merci de votre aide.