1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Sub Importe()
Dim wkB As Workbook
Dim wkC As Workbook
Dim fA As Worksheet 'Feuille A...
Dim r As Range
Dim i As Integer
Set fA = ThisWorkbook.Sheets("Feuil1")
Set wkB = Workbooks.Open(ThisWorkbook.Path & "\FichierB.xls") 'Ouverture classeur b
Set wkC = Workbooks.Open(ThisWorkbook.Path & "\FichierC.xls") 'Ouverture classeur c
'Parcours les lignes du fichier A
For i = 2 To fA.Range("A1").CurrentRegion.Rows.Count
'Traitement fichier B
Set r = wkB.Sheets("feuil1").Range("A1").EntireColumn.Find(what:=fA.Cells(i, 1).Value, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not r Is Nothing Then
fA.Cells(i, 5) = r.Offset(0, 1).Value
End If
'Traitement fichier C
Set r = wkC.Sheets("feuil1").Range("A1").EntireColumn.Find(what:=fA.Cells(i, 1).Value, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If Not r Is Nothing Then
fA.Cells(i, 6) = r.Offset(0, 1).Value
End If
Next
End Sub |
Partager