amélioration d'un code "parcourir" [Résolu]

[rob1son76]

Bonjour,

j'ai trouvé sur le site un code pour rechercher un fichier.
Il marche parfaitement.
Mon problème c'est que je peux soit récupérer le nom du fichier soit le chemin entier.

Voici le code d'appel de la procédure:

Code :

1
2
a = OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 1, "Fichier Excel", "xls")
b = OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 2, "Fichier Excel", "xls")

le premier c'est pour le chemin d'acces, le second pour le nom.

Lorsque j'exécute mon code la fenêtre de recherche s'ouvre 2 fois (1 fois pour le chemin complèt et une autre fois pour le nom).
J'aimerai qu'il ne s'ouvre qu'une seul fois mais qui récupère les le chemin d'acces et le nom du fichier dans 2 variable.

Je voudrai éviter un split sur le chemin d'access pour avoir le nom du fichier.

Merci.

[argyronet]

Bonjour,

Voici une méthode :

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub GetFileAndPath()
Dim strFullFilename                                    As String
Dim strFilename                                        As String
Dim strPathname                                        As String
    strFullFilename = OuvrirUnFichier(Application.hWndAccessApp, "Parcourir", 1, "Fichier Word", "doc")
    strFilename = Mid$(strFullFilename, InStrRev(strFullFilename, "\") + 1)
    strPathname = Left$(strFullFilename, InStrRev(strFullFilename, "\") - 1)
    Debug.Print "Chemin = " & strPathname & vbCrLf & "Fichier = " & strFilename
End Sub

Argy

[rob1son76]

Merci bcp c'est exactement ce qu'il me fallait.