fusion de deux fichiers EXCEL dans un 3ième

Bonjour ,

je cherche à fusionner deux fichiers avec la meme structure dans un 3ième fichier. Mon objectif est de fusionner automatiquement ces deux fichiers sans les ouvrir.. je compte créer un repertoire specifique chaque jour avec un fichier receptacle générique que j'appelerais "esoura". Dans ce repertoire j'intégrerais les deux fichiers du jour.
Il me faut donc une macro qui prenne les info des deux fichiers et qui les insere automatiquement dans le fichier générique essoura.

j'espère etre clair.

merci de votre aide.
olivier

Il te reste a changer le nom des fichiers

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Dim i As Double   i = 1   'Ouvre le classeur 1 Workbooks.Open ("d:\temp\a.xls") Workbooks("a.xls").Sheets("Feuil1").Select Selection.CurrentRegion.Select Selection.Copy Workbooks("a.xls").Close   'Copie les données dans la feuille cible Windows("classeur3").Activate Range("A1").Select Me.Paste   'Ouvre le classeur 2 Workbooks.Open ("d:\temp\B.xls") Workbooks("B.xls").Sheets("Feuil1").Select Selection.CurrentRegion.Select Selection.Copy Workbooks("B.xls").Close   'recherche la derniere ligne vide Windows("classeur3").Activate Sheets("Feuil1").Select Do While Not Range("A" & i).Value = "" i = i + 1 Loop   Range("A" & i).Select Me.Paste

---