1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| Sub test143()
Dim i, LastRows As Integer
Dim LookArea As Range
LastRows = ActiveSheet.UsedRange.Rows.Count
ChDir "C:\\Users\mduc\Desktop\ProCon" ' je veux faire le vlookup dans different fichier (qui ont la meme structure (pas forcement meme nombre de ligne)
AffiliateFile = Dir("C:\Users\mduc\Desktop\ProCon\*.xls")
While Len(AffiliateFile) > 0 's'arreter quand ya plus de fichier dans le dossier
Set LookArea = Workbooks(Dir).activesheets("New RF Input").Range("A:G") ' la plage ou je fais le vlookup est la meme quelque soit le fichier source
i = 2 'en 1, j'ai des labels
While i <= LastRows 'do it until the end of my sheet
Range("I" & i) = Application.WorksheetFunction.Vlookup("J" & i, LookArea, 7, 0)
i = i + 1
Wend
AffiliateFile.close
Wend
end sub |
