Ouvrir fichier dans dossier parent

Bonjour

Je suis dans une impasse. J'ai lu le Post de Daniel C, mais je ne suis pas capable d'ajuster le tout pour que sa fonctionne.

Voici mon code

Code:

---

1 2 3 4 5 6

Dim Chemin As String Dim Fichier As String 'Chemin où se trouve le fichier à ouvrir   Chemin = ThisWorkbook.Path & "\compilation_stats" Fichier = Dir(Chemin & "\compilation_stats.xlsx")

---

Le fichier ou se trouve la macro se situe C:\Statistique\fichier.xlsm

Le fichier a ouvrir se situe: C:\Statistique\compilation_stats\compilation_Stat.xlsx

Par contre le disque (C:) peu être variable.

Merci de m'aider

Bonjour,

voici un exemple basé sur le Fso (je te laisse te documenter si ça t'intéresse).
ca permet de manipuler les fichiers, dossier, lecteurs etc...

ici, on récupère le Path du classeur, et on s'en sert pour instancier un objet Dossier qui est le sous-dossier que tu cherches
ensuite, on ouvre le classeur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub toto() Const NomFichier As String = "compilation_stats.xlsx" Const NomDossier As String = "compilation_stats" Dim Fso As Object, LeDossier As Object Dim LeClasseur As Workbook   ' initialisation Set Fso = CreateObject("scripting.filesystemobject")   ' instanciation du dossier Set LeDossier = Fso.getfolder(ThisWorkbook.Path).subFolders(NomDossier)   ' ouverture du classeur Set LeClasseur = Workbooks.Open(LeDossier & "\" & NomFichier)   End Sub

---

Lorsque j'exécute la macro, j'ai un message d'erreur qui s'affiche:

Citation:

---

Incompatibilité de type

---

Que veut dire cet erreur?

Je n'arrive pas à reproduire ton problème, peux-tu montrer le code complet que tu as lancé ?

J'ai fait quelques petite modification à mon code et tout est entré dans l'ordre

Merci de ton aide aussi rapide