Discussion :

[abu143]

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

[RLX]

Salut abu143,

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

[ouskel'n'or]

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

Code :

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

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

au lieu de

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

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

Code :

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

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

A+

[abu143]

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

[abu143]

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.