Bonjour
Tout est dit dans le titre, comment récupérer le nom du fichier ouvert à partir d'une commande de type Application.FileDialog(msoFileDialogOpen).show ?
Je souhaite traiter un fichier (exemple toto.csv dans le repertoire c:\mondossier\test). le nom de se fichier va changer, ainsi que le dossier dans lequel il est. Le code permettant de traiter le fichier est ok (j'utilise une query table et je souhaite conserver ce code), mais je n'arrive pas à placer dans une variable "fichier" le nom du fichier ouvert. J'ai récupéré le nom du chemin du dossier.
Pour le moment, j'ai écris:
ce qui me permet de récupérer le nom du chemin dans la variable "repertoire" mais pas le nom du fichier !!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24 Application.FileDialog(msoFileDialogOpen).Show Repertoire = Application.FileDialog(msoFileDialogOpen).InitialFileName MsgBox Repertoire If Right(Repertoire, 1) <> "\" Then Repertoire = Repertoire & "\" Fichier = "toto.csv" Chaine = "TEXT;" & Repertoire & Fichier Sheets("Feuil2").Select With ActiveSheet.QueryTables.Add(Connection:=Chaine, Destination:=Range("A1")) .Name = Fichier .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells . . . End With
Je pensais écrire un bout de code qui à partir du chemin "repertoire" retire tout ce qui est avant le nom du fichier pour ne conserver que "toto.csv" seulement dans ma variable "repertoire" le nom du fichier n'apparait pas.... Quelle serai la syntaxe à employer?
A votre bon coeur si vous avez une idée !!!
Merci par avance
Partager