Discussion :

[oliver75]

Bonjour,

voila je cherche à fusionner deux fichiers pour en faire un troisième.

ces fichiers seront placés dans le repertoire C/TEST qui ne devra contenir que les deux fichiers à fusionner


C'est deux fichiers ont le meme format.

Je suis preneur un code magique.

merci

[Invité]

Bonjour

Pour le code magique il faudra demander à Harry Potter.

Que veux-tu fusionner :
Mettre que des données communes, rajouter toutes les données les unes derrieres les autres, etc ...

Soit plus clair dans ta demande.

Starec

[oliver75]

ca y est j'ai trouvé le code pour fusionner le fichier.

bonne apreme

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
34
 
 
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