Discussion :

[hary66]

Bonjour

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

Code :

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

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 !

[Invité]

Bonjour,

Récupérer le répertoire avec CurDir

[Menhir]

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é.

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 :

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

1
2
fichier_choisi = Application.GetOpenFilename("Text Files (*.csv), *.csv", , "Sélectionner le fichier CSV")
Chemin = Left(fichier_choisi, InStrRev(fichier_choisi, "\"))

[Invité]

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.

[Menhir]

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

Si tu le dis, je veux bien te croire.

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.