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
@+