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

L

Lipaika

XLDnaute Nouveau

• 27 Avril 2007

• #2

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

Bonjour Adeus33,

Code:

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

 

Vote positif 0 Vote négatif

A

Adeus33

XLDnaute Occasionnel

• 27 Avril 2007

• #3

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

 

Vote positif 0 Vote négatif

ninbihan

XLDnaute Impliqué

• 27 Avril 2007

• #4

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 ?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 27 Avril 2007

• #5

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+

 

Vote positif 0 Vote négatif

A

Adeus33

XLDnaute Occasionnel

• 29 Avril 2007

• #6

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

 

Vote positif 0 Vote négatif