Discussion :

[leblesois]

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 !

[Menhir]

CurDir est une fonction : Elle se contente de renvoyer une valeur mais ne réalise pas d'action (entre autre, elle ne modifie pas le répertoire courant).
C'est ChDir qui modifie le répertoire courant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
Dim chemin As String
ChDir ThisWorkbook.Path & "\.."
chemin = CurDir(ThisWorkbook.Path)
End Sub

[leblesois]

Merci beaucoup, cela fonctionne effectivement beaucoup mieux !