Je cherche à ouvrir un fichier excel à partir d'un nom variable.

J'ai un fichier nommé Bilan audit 2007 mag et d'autres fichiers nommés Bilan audit 2007 XX. XX est remplacé par des initiales.

Ma macro est la suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
    nomclasseur = ActiveWorkbook.Name 
    emplacement = ActiveWorkbook.Path
 
    nomréduit = Left(nomclasseur, 16)
 
    For i = 2 To 60
    Sheets("Liste mag").Select
 
     magasin = Cells(i, 1).Value 'permet de trouver les valeurs XX
 
     classeurmag = nomréduit & " " & magasin 'permet d'assembler le nom du classeur à ouvrir
     ChDir emplacement
     Workbooks.Open Filename = emplacement & "\" & classeurmag & ".xls"

Merci d'avance