Bonjour tout le monde !

après avoir trouvé la solution sur votre site, mon problème existe toujours...

Je m'explique :

Je voudrais récupérer le chemin du répertoire parent du fichier actif. J'ai donc trouvé cela, mais chez moi, cela ne fonctionne pas !!!! :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub test()
Dim chemin As String
CurDir (ThisWorkbook.Path)                         '  j'obtiens  C:\AAA\BBB\CCC
ChDir ".."
chemin = CurDir(ThisWorkbook.Path)           '  devrait me donner C:\AAA\BBB, mais j'obtiens C:\AAA\BBB\CCC
End Sub
Faut-il cocher quelque chose dans le menu "Outils\Références" ?

Merci pour votre aide !