Macro VBA

Salut,

Je viens de me pencher sur ton problème, voici un fichier qui recherche tous les xls dans le dossier spécifié dans la cellule A1.

En plus de les ouvrirs, il sélectionne une partie de la feuille (à toi de modifier mon prg pour qu'il selectionne ce que tu veux), il fait une copie, ré-active l'autre classeur ou les données doivent être copiées et colle ce qu'il vient d'être copié (à chaque fois sur une nouvelle feuille), si il n'y a plus de feuille, la macro ajoute une feuille après la dernière.

Ensuite le classeur ouvert via la macro est refermé.

Et ainsi de suite pour tout les classeurs se trouvant dans le répertoire.

Bonne fin de journée.

John

Dim Fichier

application.enableevents=false 'désactivation des évènements
with Application.FileSearch
.FileName = "*.xls"
.LookIn = "C:\Windows\Temp"
.Execute

If .foundfiles.count>0 then exit sub else workbooks.add :set wbk_Tgt=activeworkbook
On Error Resume Next
For each Fichier In .FoundFiles
workbooks.open Fichier
activeworkbook.sheets(activeworkbook.sheets.count).copy after:=wbk_Tgt.sheets(wbk_Tgt.sheets.count)
activeworkbook.close savechanges:=false
Next
applicatin.enableevents=true
On Error Goto 0
End with

Merci!

A bientot