Macro d'assemblage de classeurs

Salut

il se trouve dans un même répertoire ces 10 classeurs ?, portent-ils des
noms communs ?
quelques précisions serait nécessaires

sinon la copie en elle même
Windows("Classeur4").Activate
Sheets.Copy
after:=Workbooks("Recap").Sheets(Workbooks("Recap").Sheets.Count)

rural thierry

"Rackar" <rkarkari@gfimaroc.com> a écrit dans le message news:
002801c34bad$5c82d790$a301280a@phx.gbl...
Bonjour tous le monde,

Est-ce que quelqu'un peu m'aider ?

J'ai 10 classeurs excel, chacun d'eux contient 3 feuilles.

Je voudrait savoir est-ce qu'il existe une macro qui peut
assembler tous ces éléments dans un nouveaux classeurs
excel (qui aurait au total 30 feuilles)

MErci beaucoup

Oui ils se trouvent dans le même répertoire.
Non ils ne portent pas le même nom.

re-

un exemple s'ils sont mélangés parmi d'autres fichiers
Sub Macro3()
For Each t In Array("clés", "classeur1", "classeur3", "classeur4",
"classeur5","toto","isidore")
Workbooks.Open Filename:="C:TEMP" & t & ".xls"
ActiveWorkbook.Sheets.Copy
after:=Workbooks("Recap.xls").Sheets(Workbooks("Recap.xls").Sheets.Count)
Next
End Sub

(attention aux coupures de lignes)

rural thierry


"RacKar" <rkarkari@gfimaroc.Com> a écrit dans le message news:
017601c34bb2$cc5c78a0$a101280a@phx.gbl...

Oui ils se trouvent dans le même répertoire.
Non ils ne portent pas le même nom.