importer 2 fichiers l un au dessous de l autre dans un autre fichier

[reve24]

Bonjour

J aimerai savoir comment importer en VBA
les 2 fichiers 2012 2013 l un au dessous de l autre
dans le fichier TRAITEMENT

merci d avance

 

[Yaloo]

Re : importer 2 fichiers l un au dessous de l autre dans un autre fichier

Bonsoir Reve,

Avec cette macro :

Option Explicit
Private Sub CommandButton1_Click()
Dim Wk12 As Workbook, Wk13 As Workbook
Dim i&, j&
Set Wk12 = Workbooks("2012.xls")
Set Wk13 = Workbooks("2013.xls")
Columns("A:C").Clear
j = Wk12.Sheets(1).[C65536].End(xlUp).Row
Wk12.Sheets(1).[A2].Resize(j - 1, 3).Copy [A4]
j = Wk13.Sheets(1).[C65536].End(xlUp).Row
i = [C65536].End(xlUp)(2).Row
Wk13.Sheets(1).[A2].Resize(j - 1, 3).Copy Cells(i, 1)
End Sub

A+

Martial