Discussion :

[fmris]

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 :

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

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

[Invité]

Bonjour,

Par exemple :

Code :

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

  RepertoireFichierTxt = CurDir

Cordialement.

[ZX12R]

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

[Invité]

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.

[ZX12R]

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

Cordialement.

Bruno

[patricktoulon]

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 :

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

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