ouvrir un classeur excel à partir d'un nom variable

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:

---

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

Salut abu143,

je pense qu'il te manque juste le "Next i" de ta boucle for pour que cela fonctionne.

J'ignore si la réponse de RLX a résolu ton problème mais à mon avis, si tu mets

Code:

---

Workbooks.Open Filename:=emplacement & "\" & classeurmag & ".xls"

---

au lieu de

Citation:

---

Workbooks.Open Filename = emplacement & "\" & classeurmag & ".xls"

---

ça risque d'aller mieux ;)
Sinon, j'aurais une suggestion à te faire : simplifie ton code

Code:

---

1 2	NomFich= ActiveWorkbook.Path & "\" & nomréduit & " " & Sheets("Liste mag").Cells(i, 1).Value & ".xls" Workbooks.Open Filename:=Nomfich

---

A+

Merci pour l'info mais j'ai bien mis Next i.
Ma macro bloque sur l'ouverture du fichier recherché.
Pour plus de facilité, je joins mon fichier.
J'ai à côté exactement plusieurs fichiers identiques, nommés : Bilan audit 2007 XX.
Comme expliqué dans mon précédent message, cette partie XX est variable. Dans mon fichier, j'ai noté trois abréviations pour exemple (NA, ES et AU).

Merci d'avance pour votre aide

Bonjour ouskel'n'or,

Merci pour l'aide. Ma macro dépasse désormais ce stade, il faut donc que je me penche sur la suite de ma macro.

Merci à tous de ne pas tenir compte de mon message d'il y a même pas dix minutes.