Récupérer le chemin (path) d'un fichier

Version imprimable

15/04/2020, 13h43
hary66

Récupérer le chemin (path) d'un fichier

Bonjour

Garce à ce petit bout de code, je choisi un fichier sur lequel je dois travailer:

Code:

fichier_choisi = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Sélectionner le fichier CSV")

Je souhaite ensuite récupérer le chemin d'accès (path) de ce "fichier_choisi" pour créer un "fichier_modifié" au même endroit (juste à coté)

Je précise que "fichier_choisi" n'est pas le fichier excel sur lequel je travaille !
15/04/2020, 13h52
Invité

Bonjour,

Récupérer le répertoire avec CurDir
15/04/2020, 14h21
Menhir
Citation:

Envoyé par Eric KERGRESSE

Récupérer le répertoire avec CurDir

Si je ne me trompe pas, CurDir concerne les commandes VBA de base comme Dir ou Name mais pas les méthodes et propriété propres à Excel.
Le répertoire par défaut propre à Excel est la propriété DefaultFilePath de Application.

Mais la méthode GetOpenFilename permettant de changer de répertoire, ça ne donnera pas le chemin du fichier sélectionné.

Citation:

Je souhaite ensuite récupérer le chemin d'accès (path) de ce "fichier_choisi" pour créer un "fichier_modifié" au même endroit (juste à coté)

Si tu fais des tests en consultant ce que contient la variable fichier_choisi, tu verra que GetOpenFilename renvoie le nom de fichier avec son chemin.

Il suffit donc d'un peu décomposer la chaine de caractère pour en extraire le chemin du du fichier.
Code:

1 2 fichier_choisi = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Sélectionner le fichier CSV") Chemin = Left(fichier_choisi, InStrRev(fichier_choisi, "\"))
15/04/2020, 14h41
Invité

Citation:

Envoyé par Menhir

Salut Menhir,

Désolé, mais CurDir te donne le répertoire derrière une commande GetOpenFilename dès lors que la variable contenant le nom du fichier récupéré est du type string.
J'utilise constamment cette syntaxe pour récupérer mes répertoires.
15/04/2020, 14h58
Menhir

Citation:

Envoyé par Eric KERGRESSE

J'utilise constamment cette syntaxe pour récupérer mes répertoires.

Si tu le dis, je veux bien te croire. :ccool:

Personnellement, j'avais eu des problèmes en utilisant CurDir en relation avec des méthodes comme Open ou SaveAs.
Mais il en est peut-être différemment avec GetOpenFilename compte tenu du fait qu'il s'agit d'un petit morceau d'explorateur Windows.