Copie d'une colonne a la fin d'une autre

[romainchu78]

Bonjour a tout le forum,
jai un fichier excel nomme workbook1 avec une feuille sheet1 dans laquelle les colonnes A et B sont remplies de donnees. environ 20000 lignes.
jai un 2eme fichier excel nomme workbook2 avec une feuille sheet2 dans laquelle les colonnes A et B sont remplies de donnees. environ 10000 lignes.
j'essaye de faire une macro qui copie toutes les donnees de la colonne A et B du workbook2 a la fin des colonnes A et B du workbook1.
au final j'aurais donc dans le workbook 1 deux colonnes A et B de 30000 lignes.

jai essaye ce code:
Workbooks("Workbooks2.xls").Sheets("sheet2").Range("A1:B" & Sheets("sheet2").Range("A65536").End(xlUp).Row).Copy Destination:=Workbooks("Workbooks1").Sheets("sheet1").Range("A" & Sheets(sheet1).Range("A65536").End(xlUp).Row + 1)

jai le message d'erreur "out of range".
Quel est l'erreur sur ce code?
merci par avance

 

[Pierrot93]

Re : Copie d'une colonne a la fin d'une autre

Bonjour Romain

essaye peut être comme ci dessous si noms des classeurs et feuilles sont exact, et si nombre de lignes des colonnes A et B est identique :

Workbooks("Workbooks2.xls").Sheets("sheet2").Range("A1:B" & Workbooks("Workbooks2.xls").Sheets("sheet2").Range("A65536").End(xlUp).Row).Copy _
    Destination:=Workbooks("Workbooks1").Sheets("sheet1").Range("A" & Workbooks("Workbooks1").Sheets(sheet1).Range("A65536").End(xlUp).Row + 1)

a tester...

@+

 

[romainchu78]

Re : Copie d'une colonne a la fin d'une autre

jai essaye jai le meme message d'erreur.
je suis perdu je ne voie vraiment pas ou est l'erreur

 

[romainchu78]

Re : Copie d'une colonne a la fin d'une autre

jai re-essaye en changant les variables.
maintenant ca marche.
merci