Discussion :

[oliver75]

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

[jfontaine]

Il te reste a changer le nom des fichiers

Code :

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

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