Bonjour,
Je suis actuellement à la recherche d'une fonction ou d'un bout de code qui me permettrait d'afficher dans une cellule (pour l'utilisateur) le nom du fichier texte qu'il a ouvert dans le tableur.
Voici le code actuel qui me permet d'ouvrir le fichier txt :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Dim QuelFichier
With Sheets("Feuille1").QueryTables.Add(Connection:= _
"TEXT;" & QuelFichier _
, Destination:=Sheets("Feuille1").Range("A1"))
.Name = ""
[...]
.Refresh BackgroundQ
If QuelFichier = False Then Exit Sub
 
End With
Merci d'avance de votre aide