Copier une plage de cellules

Bonjour à tous,

Je souhaiterai effectuer la macro suivantes :

copier une plage de cellules (exemple colonne B) du fichier "Facture" vers un autre fichier (exemple colonne C du fichier Suivi ventes).

Et que pour la facture suivante la même plage de cellules se copie en colonne C du fichier Suiviventes mais en dessous des données précédentes.

Je suis sur la macro suivante, qui évidemment ne fonctionne pas

Dim Suiviventes As Workbook 'copie dans suiviventes

Set Suiviventes = Workbooks.Open("C:\Windsurfing Zone\Factures Clients\Factures\Synthese factures\Suiviventes.xlsx")

Set ws = Suiviventes.Worksheets("Suivi")

dl = ws.Range("C" & ws.Rows.Count).End(xlUp).Row + 1

ws.Range("C" & dl) = ThisWorkbook.Worksheets("Facture").Range("B22:B26")

ws.Range("D" & dl) = ThisWorkbook.Worksheets("Facture").Range("c22:c26")

ws.Range("E" & dl) = ThisWorkbook.Worksheets("Facture").Range("d22:d26")

ws.Range("F" & dl) = ThisWorkbook.Worksheets("Facture").Range("e22:e26")

ws.Range("G" & dl) = ThisWorkbook.Worksheets("Facture").Range("f22:f26")

ws.Range("H" & dl) = ThisWorkbook.Worksheets("Facture").Range("g22:g26")

ws.Range("I" & dl) = ThisWorkbook.Worksheets("Facture").Range("h22:h26")

ws.Range("J" & dl) = ThisWorkbook.Worksheets("Facture").Range("H10")

ws.Range("K" & dl) = ThisWorkbook.Worksheets("Facture").Range("H11")

Suiviventes.Save

Suiviventes.Close

Merci

@+

Bonsoir

Sans test because no file

Sub truc()
Dim Suiviventes As Workbook     'copie dans suiviventes

  Set Suiviventes = Workbooks.Open("C:\Windsurfing Zone\Factures Clients\Factures\Synthese factures\Suiviventes.xlsx")

  Set Ws = Suiviventes.Worksheets("Suivi")
  Dl = Ws.Range("C" & Ws.Rows.Count).End(xlUp).Row + 1
  ThisWorkbook.Worksheets("Facture").Range("B22:H26").Copy Ws.Range("C" & Dl)
  Ws.Range("J" & Dl) = ThisWorkbook.Worksheets("Facture").Range("H10")
  Ws.Range("K" & Dl) = ThisWorkbook.Worksheets("Facture").Range("H11")
  Suiviventes.Save
  Suiviventes.Close
End Sub

Nickel !!!!!

Merci beaucoup

@+

Rechercher des sujets similaires à "copier plage"