ThisWorkbook.Worksheets("service").Cells("i,j").Resize(6, 4).Value = _ Wbk.Worksheets(feuille).Range("A2:D7").Value
ThisWorkbook.Worksheets("service").Cells("i,j").Resize(6, 4).Value = _ Wbk.Worksheets(feuille).Range("A2:D7").Value
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub COPIEBASEVG(chemin, feuille) Dim Wbk As Workbook Dim Rep As String Dim Plage As Range Dim tbl() As Variant Dim i As Integer, j As Integer Set Wbk = Workbooks.Open(chemin) With ThisWorkbook.Worksheets("service") Set Plage = .Range("A2:E" & .Range("D65536").End(xlUp).Row) End With tbl = Plage.Value For i = 1 To UBound(tbl, 1) For j = 1 To UBound(tbl, 2) If tbl(i, j) = "" Then ThisWorkbook.Worksheets("service").Cells(i, j).Resize(6, 4).Value = _ Wbk.Worksheets(feuille).Range("A2:D7").Value End If Next j Next i 'ThisWorkbook.Worksheets("service").Range("C9:F14").Value = Wbk.Worksheets(feuille).Range("A2:D7").Value Wbk.Close False 'Wbks.Close True Set Wbk = Nothing End Sub