Importer des feuilles d'après une variable

Bonjour,

Mon problème est que je dois importer les feuilles d'un document dont le nom est dans une cellule d'un autre document.
Pour expliciter, j'ai dans le classeur A une cellule qui contient un nom d'article (exemple : "AAA-123"). J'ai dans un dossier un ensemble de classeurs excel correspondant chacun à un article (exemple : "AAA-123.xls").
J'aimerais pouvoir importer dans le classeur A toutes les feuilles du classeur correspondant au bon article, c'est à dire à la valeur de la cellule sus-mentionnée.

Merci d'avance.

Bonjour Kamasaki le forum
alors tu mets la macro là dans un module standard, tu mets la référence du fichier dans la cellule A1 de la feuille Feuil1 et tu auras ce que tu souhaites.
j'ai fait comme si les fichiers à ouvrir était dans le même dossier que le classeur A contenant la macro, pour ton test fait comme cela on modifiera après quand tu donneras le chemin du dossier
a+
Papou:)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub importer() Dim i&, sh As Worksheet, wbks As Workbook, wbkc As Workbook, adr$, x$ Application.ScreenUpdating = 0 x = Feuil1.Range("A1") Set wbkc = ThisWorkbook adr = ThisWorkbook.Path Set wbks = Workbooks.Open(adr & "\" & x) For Each sh In wbks.Worksheets sh.Cells.Copy With wbkc .Activate .Sheets.Add after:=Sheets(Sheets.Count): .Sheets(Sheets.Count).Name = wbks.Name & " " & sh.Name .Sheets(Sheets.Count).Paste .Sheets(Sheets.Count).Range("A1").Select End With Next sh Application.DisplayAlerts = 0 wbks.Close 0 Application.DisplayAlerts = 1 End Sub

---

Merci beaucoup Paritec, cela fonctionne à merveille.
Pour l'adresse, le simple fait de remplacer ThisWorkbook.path par le chemin réel a fonctionné, donc je ne pense pas chercher plus loin.

Encore une fois merci tu viens de simplifier la vie de nombreux employés.

Je passe en résolu et je t'offre une magnifique :lahola: en remerciement

A +