1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Dim fich1 As Worksheet: Set fich1 = ThisWorkbook.Worksheets("Feuil1")
path_2 = "C:\Users\DELL\Desktop\Nouveau Feuille Microsoft Office Excel - Copie.xlsm"
rangA = fich1.Range("A1").Value
Workbooks.Open path_2
For Each sh In Workbooks("Nouveau Feuille Microsoft Office Excel - Copie.xlsm").Worksheets
If UCase(Trim(sh.Name)) = "FEUIL1" Then
For i = 1 To Sheets(sh.Name).Range("G65000").End(xlUp).Row
If Sheets(sh.Name).Range("G" & i).Value = rangA Then
insert_1 = Sheets(sh.Name).Range("J" & i).Value & "." & Sheets(sh.Name).Range("I" & i).Value
fich1.Range("D1").Value = insert_1
Exit For
End If
Next i
End If
Next
Workbooks.Close path_2, False |
Partager