Récupérer chemin d'accès d'un fichier à partir d'un autre

Bonjour,

Je suis un peu perdu, merci de m’aider.

Je travaille avec 2 fichiers soit à partir du bureau de mon pc soit à partir d’une clé USB.

Sur mon pc le chemin du fichier ‘Sources’ est : C:\Users\DELL\Desktop\MesFichiers\2018\Sources 2018.xlsm

Et le fichier ‘Maitre’ : C:\Users\DELL\Desktop\MesFichiers\Maitre.xlsm

Je voudrais ouvrir le fichier ‘Maitre’ à partir de fichier ‘Sources 2018’.

En vous remerciant par avance.

Bonjour,

à tester,

repSource = ThisWorkbook.Path
repMaitre = Left(repSource, Len(repSource) - 4)
Workbooks.Open Filename:=repMaitre & "Maitre.xlsm"

Bonjour Isabelle ,

Très gentil de ta part, tu m'as donné une bonne piste.

Je suis arrivé à mes fins, en remodelant ton code ainsi

repsource = ThisWorkbook.Path
repMaitre = Left(repsource, Len(repsource) - 2)
Workbooks.Open Filename:=repMaitre & "\" & "Maitre.xlsm"

Encore merci

Bonne journée

edit: j'ai trouvé cette fonction de BrunoM45, ça pourrait servir

Function DossierParent(sPath As String)
  ' Vérifier la construction du chemin
  If Right(sPath, 1) = "\" Then sPath = Left(sPath, Len(sPath) - 1)
  ' Dossier parent = chemin avant le dernier slash
  DossierParent = Left(sPath, InStrRev(sPath, "\"))
End Function
Sub UtiliserFonction()
MonCheminParent = DossierParent(Thisworkbook.Path)
End Sub

CP4, Merci pour ton retour

ça faisait longtemps que j'avais vu quelqu'un utiliser la fonction InStrRev

je l'avais presque oublier, un gros merci pour ce rappel