Discussion :

[Master_x_99]

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 :

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

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

[joe.levrai]

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 :

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

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

[Master_x_99]

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

Incompatibilité de type

Que veut dire cet erreur?

[joe.levrai]

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

[Master_x_99]

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

Merci de ton aide aussi rapide