Macro pour copier coller d'un classeur à un autre

[jihane]

Bonjour à tous,

J'aimerais créer une macro qui copie un classeur 2 et le colle à la dernière ligne d'un classeur 1. Mes deux classeurs peuvent avoir un nombre de ligne différentset qui changent à chaque fois.

J'ai mis un exemple de classeur 1 et 2 et le resultat que je veux obtenir dans le classeur 3

Merci pour votre aide

 

[La Julie]

Re : Macro pour copier coller d'un classeur à un autre

Bonjour Jihane, bonjour le forum

En faisant une petite recherche tu aurais trouver tout ce qu'il te fallait pour écrire cette macro

Sub CopierEntreDeuxClasseurs()
'Pour copier entre 2 classeurs, on utilise des variables
'On met cette macro dans un module du classeur de destination

Dim wbdest As Workbook, wbS2 As Workbook


Set wbS2 = Workbooks("ClasseurSource2.xls")

Set wbdest = ThisWorkbook ' c'est le Classeur1, classeur de destination

wbS2.Sheets("feuil1").Range("A1:" & Cells([A65536].End(xlUp).Row, _
[IV4].End(xlToLeft).Column).Address(0, 0)).Copy wbdest.Sheets("feuil1").Range("A1").End(xlDown).Offset(1, 0)

wbdest.Activate

End Sub

 

[jihane]

Re : Macro pour copier coller d'un classeur à un autre

Merci bcp Julie. ça marche parfaitement bien