Copier donnees fichier1/feuille1 vers fichier2/feuille 2 aver derniere lign
j aimerais copier des donnees d un fichier1/feuille 1 vers fichier 2 feuille 1 en les placant en derniere ligne
sub test
Dim plg As Range
Dim DL As Long
Set plg = ThisWorkbook.Worksheets("feuil1").Range("A1:F9") 'ces donnees varient a chaque ouverture
Workbooks.Open ("Y:\test3.xlsx")
DL = Range("A1").End(xlDown).Row + 1
Worksheets("test").Range("A" & DL).Value = plg.Value 'ca ne marche pas
end sub
merci de l aide
Bonjour Sat, bonjour le forum,
Peut-être comme ça :
Sub test()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DEST As Long 'déclare la variable DEST (cellule de DESTination)
Set CS = ThisWorkbook 'définit le claseur source CS
Set OS = CS.Worksheets("Feuil1") 'définit l'onglet source OS
Set CD = Workbooks.Open("Y:\test3.xlsx") 'définit le claseur destination CD
Set OD = CD.Worksheets("test") 'définit l'onglet destination OD
'définit la cellule de destination DEST (A1, si A1 est vide, sinon, la première cellule vide de la colonne A de l'onglet OD
If OD.Range("A1") = "" Then Set DEST = OD.Range("A1") Else Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0)
OS.Range("A1").CurrentRegion.Copy DEST 'copy la plage des cellules adjacentes à A1 et la colle dans DEST
'ou : OS.UsedRange.Copy DEST 'copy la plage des cellules utilisées de l'onglet source OS et la colle dans DEST
End Subvoici la solution
Dim plg As Range
Set plg = ThisWorkbook.Worksheets("test1").Range("A3:F9")
Workbooks.Open ("Y:\test3.xlsx") 'fichier 2
With Worksheets("test1")
Lig = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range(.Cells(Lig + 1, 2), .Cells(Lig + plg.Rows.Count, plg.Columns.Count + 1)).Value = plg.Value
End With