[VBA] Trouver le nom du dossier parent du fichier Excel

Bonjour,

désolé de déterrer, mais je suis dans une impasse.

En retapant la dernière macro sous mac office 2011, ça bug

Sub test_chdir()
'
' test_chdir Macro
'
Dim chemin As String
ChDir (ThisWorkbook.Path)
ChDir "::"
chemin = CurDir(ThisWorkbook.Path)
MsgBox chemin
End Sub

ça bloque à :

ChDir (ThisWorkbook.Path)

mais cela est dû au fait qu'il y a un accent dans le chemin, à savoir le dossier "Décembre".

Car en essayant dans le dossier "Novembre" , la macro fonctionne.

Le but est pour moi d'avoir une macro fonctionnant sur mac et pc.

Donc est-ce que c'est possible de garder les accents dans les noms de dossier ou j'abandonne svp.

Edit Dan : sujet de référence --> https://forum.excel-pratique.com/excel/trouver-le-nom-du-dossier-parent-du-fichier-excel-t19755.html

Bonjour

Essaie plutôt ceci

Sub test_chdir()
Dim chemin As String
ChDir (ThisWorkbook.Path)
If OperatingSystem Like "win" Then
ChDir "."
Else: ChDir ":"
End If
chemin = CurDir(ThisWorkbook.Path)
MsgBox chemin
End Sub

Si ok, clique sur le v vert à coté du bouton Editer lors de ta réponse afin de cloturer le fil

Crdlt

Bonjour Dan

merci beaucoup pour ton aide.

J'ai réussi à me passer du ChDir "::" dans mon code.

Reste le problème sans solutions simples visiblement des accents dans le chemin. Donc j'ai supprimé les accents dans mes dossiers, alors que l'accent dans le nom du fichier lui ne pose pas de problème ("décembre_09") !!!

Bref résolu en partie en bricolant.

Merci encore !

re

Bonne pratique : Toujours éviter les accents et les espaces dans les noms. Cela mets toujours le souci à un moment ou un autre. Et encore plus lorsque tu as un fichier qui fonctionne sur les deux OS

Crdlt

Edit : pour le chdir, la solution dans l'autre fil était en fait pour avoir le répertoire du dossier père. D'où le .. ou ::