[XL-2010] Récupérer le répertoire parent de niveau 2 sujet

Bonsoir,

Actuellement je récupère le répertoire parent de niveau 2 de cette façon

Code:

---

rep_parent = Left(ThisWorkbook.Path, InStrRev(ThisWorkbook.Path, "\") - 1)
rep_parentN2 = Left(rep_parent, InStrRev(rep_parent, "\") - 1)

---

Y'a t'il une façon plus simple de faire cela ?
D'avance merci.