1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Private Sub copie(starty As Integer, endy As Integer, destination As Integer)
Dim chemin As String
Dim nomfichiersource As String
Dim nomfichiercible As String
Dim WBsource As Workbook, WBcible As Workbook
Dim WSsource As Worksheet, WScible As Worksheet
'Plus d'update d'écran
Application.ScreenUpdating = False
'Affectation Variables
nomfichiersource = "Schichtplan the_new_the_one_and_only.xls"
nomfichiercible = "planning_jour.xls"
Set WBsource = Workbooks(nomfichiersource)
Set WSsource = WBsource.Sheets(semainefeuille)
Set WBcible = Workbooks(nomfichiercible)
Set WScible = WBcible.Sheets("base")
'Copie de la plage de cellules sur la destination
WSsource.Range(WSsource.Cells(starty, 73), WSsource.Cells(endy, 256)).Select
'WScible.Cells(destination, 1)
Selection.Copy
WScible.Range(WScible.Cells(destination, 1)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False
End Sub |
Partager