Créer automatiquement un chemin d'accès

[Fréd]

Bonjour à tous,

J'ai fait une macro pour récupérer des chiffres dans différents fichiers qui se trouvent dans un sous-dossier du dossier où est enregistré mon fichier (vous voyez ?), ex : "c:\Dossier 1" j'ai mon classeur avec la macro qui pointe vers le sous-dossier : "c:\Dossier 1\sous-dossier 1".
Or, je dois maintenant mettre mon classeur dans c:\Dossier 1\sous-dossier 2 mais toujours pointer vers le même sous-dossier 1.
Je pourrais mettre l'adresse exacte, mais j'en ai beaucoup et plusieurs fois par an les chemins sont modifiés : je ne peux pas tout reprendre à la main chaque fois.
Quelqu'un a-t-il une solution ? voici le code que j'utilise actuellement.


CheminClasseur = Application.ActiveWorkbook.Path
NomClasseur = ActiveWorkbook.Name

With Application.FileSearch
.LookIn = CheminClasseur
.SearchSubFolders = True
.Filename = "Ce*"
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> ActiveWorkbook.FullName Then
Workbooks.Open Filename:=.FoundFiles(i)

Workbooks(nomfichier).Close SaveChanges:=False 'fermeture du fichier
End If
Next i
Else
MsgBox "Pas de fichier trouvé."
End If
Merci d'avance
Fréd