application.getopenfile - comment récuperer le chemin du fichier sélectionné ?

bonjour
J'ia une macro qui utilise le code ci dessous pour aller ouvrir un fichier .txt.
Je voudrais récupérer le chemin ou se trouve le fichier sélectionné.
Comment faire ?

Code:

---

1 2 3 4 5 6 7

Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")   If Fichier = "Faux" Then Beep MsgBox "Aucun fichier n'a été sélectionné" Exit Sub Else

---

Bonjour,

Par exemple :

Code:

---

RepertoireFichierTxt = CurDir

---

Cordialement.

Bonjour,

Curdir OK, sauf si son fichier n'est pas dans le répertoire actif...

Sinon, tu peux utiliser la fonction si dessous pour trouver la position du dernier \. Et tu extrais soit Path soit Nom avec les fonctions Left() ou Right().


InStrRev, fonction

Description

Renvoie la position d'une occurrence d'une chaîne dans une autre, à partir de la fin de la chaîne.

Syntaxe

InstrRev(stringcheck, stringmatch[, start[, compare]])

Exemple :

PosBackSlash = InStrRev(FichierTXT, "\")
PathTXT = Left(NomPlan, PosBackSlash - 1)
NomFichierTXT = Right(FichierTXT, Len(FichierTXT) - PosBackSlash)

Ca devrait le faire...

Cordialement.

Bruno

Citation:

---

Envoyé par ZX12R

Curdir OK, sauf si son fichier n'est pas dans le répertoire actif...

---

Bonjour,

Si la variable Fichier n'est pas False derrière le GetOpenFileName, le répertoire du fichier Txt sera forcément récupéré avec Curdir.

Cordialement.

Tu as complètement raison. Et pourquoi faire compliqué quand on peut faire simple...

Cordialement.

Bruno

Bonjour
il n'y a pas besoins de tout ca

la variable "fichier est forcement un variant
j'entends par que le getopenfilename qui ne récupère que le chemin et n'ouvre pas le fichier renvoie un booléen a l'état false si annulé
ou
un string contenant le chemin complet du fichier

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub test() dim fichier as variant fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt") If fichier = "Faux" Then Beep MsgBox "Aucun fichier n'a été sélectionné" Exit Sub Else MsgBox "le fichier existe son chemin c'est " & vbcrlf & fichier End If End Sub

---

;)

Citation:

---

Envoyé par patricktoulon

il n'y a pas besoins de tout ca

---

Bonjour,

Est-ce que tu as lu ce qui était demandé ?

Cordialement.

re
a oui Eric tu raison il veut que le chemin du dossier parent
autant pour moi