Problème de Split sur chemin d'accès

[Efgé]

Bonjour à tous,
Après avoir récupéré a droite et à gauche sur le forum des morceaux de code, j'ai créé une feuille qui permet à un utilisateur de choisir par l'intermédiaire d'un explorateur le fichier à traiter.
J'affiche le nom du fichier en D12. Mon problème est d'afficher le chemin d'accès de ce fichier (uniquement le chemin, mais tout le chemin) en D10.
J'ai trouvé de nombreuses solutions pour extraire le nom du fichier mais pas le chemin.
Je vous joint un classeur qui comporte le strict minimum,
Par avance merci du temps que vous m'accorderez.

 

[PascalXLD]

Re : Problème de Split sur chemin d'accès

Bonjour

peut-être ceci

Range("D10") = Left(sPath, Len(sPath) - Len(Fichier))

 

[kjin]

Re : Problème de Split sur chemin d'accès

Bonjour,

Sub Explorateur_fichier()
Dim Fichier
ChDir Range("D10").Text
Fichier = Application.GetOpenFilename("Classeur Excel(*.xls), *.xls") 'on peut aussi ne rien spécifier
If Fichier <> False Then Range("D12") = Fichier
End Sub

A+
kjin

 

[Efgé]

Re : Problème de Split sur chemin d'accès

Merci de vos réponses, je pens que la solution de PascalXLD fonctionne. Je vais tester les deux propositions.
Cordialement