macro recopie cellules à la fin d'un classeur

[deco14]

Bonjour,
je voudrais faire une macro qui recopie une ligne de quelques cellules à la fin d'un fichier situé dans un autre classeur.
Dans ce classeur, si la dernière ligne utilisée est la l, les cellules recopiées de l'autre classeur doivent venir en ligne l+1.
Merci.

 

[Robert]

Re : macro recopie cellules à la fin d'un classeur

Bonjour Deco et bienvenu, bonjour le forum,

le code ci-dessous à placer dans le classeur Classeur1.xls et si les deux classeurs sont ouverts :

Sub Macro2()
Dim cs As Workbook 'déclare la variable cs (Classeur Source)
Dim cd As Workbook 'déclare la variable cd (Classeur Destination)
Dim os As Object 'déclare la variable os (Onglet Source)
Dim od As Object 'déclare la variable od (Onglet Destination)
Dim orig As Range 'déclare la variable orig (plage d'ORIGIne)
Dim dest As Range ' 'déclare la variable dest (cellule de DESTination)

Set cs = ThisWorkbook 'définit le classeur source cs
Set os = cs.Sheets("Feuil1") 'définit l'onglet source os
Set cd = Workbooks("Classeur2.xls") 'définit le classeur destination cd
Set od = cd.Sheets("Feuil1") 'définit l'onglet destination od
Set orig = os.Cells(Application.Rows.Count, 1).End(xlUp).Resize(1, 6) 'définit la plage d'origine orig
Set dest = od.Cells(Application.Rows.Count, 2).End(xlUp).Offset(1, 0) 'définit la cellule de destination dest
orig.Copy dest 'copy la plage orig dans dest
End Sub

 

[deco14]

Re : macro recopie cellules à la fin d'un classeur

Merci beaucoup, Robert, ça marche et correspond à ce que je veux.😱