Trouver le chemin d'accès d'un fichier

[Adeus33]

Bonjour,

Peut on récupérer le chemin d'accès d'un fichier que l'on va chercher à l'aide de la boite de dialogue excel?

J'utilise le code suivant pour ouvrir la boite de dialogue et pour ouvrir le fichier en suivant, mais j'aimerais uniquement récupérer le chemin d'accès.

Code:
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
Sheets(i).Select

Est ce possible?

Merci d'avance pour votre aide

Adeus 33

 

[Lipaika]

Re : Trouver le chemin d'accès d'un fichier

Bonjour Adeus33,

Private Function SelectionFichier() As String
Dim PathUser As String
Dim Fichier As Variant
Dim str_fichier As String
Const antislash As String = "\"

'ouverture de la boite de dialogue
Fichier = Application.GetOpenFilename(FileFilter:="microsoft excel files (*.xls), *.xls", Title:="Selectionnez un fichier.")

Long_Path_fichier = Fichier

If Fichier = False Then Exit Function
nb_folder = counter_folder(str_fichier, antislash)


SelectionFichier = Split(Fichier, "\")(nb_folder)   'uniquement le nom du fichier 
end function

 

[Adeus33]

Re : Trouver le chemin d'accès d'un fichier

Bonjour Lipaika et merci de m'avoir répondu


J'ai essayé le code que tu m'as passé mais il me marque que counter_folder n'est pas défini. Aurais tu une explication?

Merci d'avance

 

[ninbihan]

Re : Trouver le chemin d'accès d'un fichier

Bonsoir le forum, Adeuset Lipaika,

Pour avoir le chemin:
Sub chemin()
Dim fichier As Variant
fichier = Application.GetOpenFilename
MsgBox (fichier)
End Sub

Est ce que cela te convient ?

 

[JCGL]

Re : Trouver le chemin d'accès d'un fichier

Bonjour à tous,

Pour compléter le code de ninbihan, je te conseille le fichier de Creepy :


Chemin.exe

Tu ouvres l'Explorateur avec le code de ninbihan, tu fais un clic droit sur le fichier choisi (après avoir "installé" Chemin.exe), tu cliques sur Envoyer vers et Chemin.exe dans le menu contextuel.

Le chemin est copié dans le Presse-Papier et un simple Collé dépose le chemin complet du fichier dans une cellule.

A+

 

[Adeus33]

Re : Trouver le chemin d'accès d'un fichier

Bonsoir

Désolé de ne pas avoir répondu avant.

Merci a tous pour vos réponses.

J'ai essayé la solution de ninbihan qui me convient parfaitement.

Merci

Adeus 33