Bonjour !

Je n'arrive pas à trouver une solution à ma problématique qui est la suivante :
Comment faire pour faire un VLookUP (équivalent du RechercheV donc) sur 2 feuilles Excel situées dans 2 fichiers différents de façon intégrale (jusqu'à la dernière ligne) ?

J'ai réussi auparavant à faire un VLookUP intégral sur 2 feuilles d'un même classeur, puis par la suite à faire un VLookUP sur une plage donnée mais cette fois-ci sur 2 classeurs différents.

Je bloque donc ici :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
31
32
33
34
35
36
37
38
Sub Ajout_test()
 
Dim ClasseurRef As Workbook 'Classeur de ref
Dim LastRowEB As Long ' Dernière ligne EB
Dim LastRowRef As Long ' Dernière ligne fichier de ref
Dim feuilleEB As Worksheet ' Feuille EB
Dim feuilleRef As Worksheet ' Feuille ref
 
ClasseurEB = ActiveWorkbook.Name
 
ThisWorkbook.Activate
 
Set feuilleEB = Workbook.Sheets("Feuil1")
Set ClasseurRef = Workbooks.Open("D:\...\Fichier2.xlsx")
 
ClasseurRef.Activate
Set feuilleRef = Workbooks("ClasseurRef").Worksheets("Feuil1")
 
 
With feuilleRef
    'Détermine dernière ligne du fichier de ref
    EBLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With
 
 
With fichierARemplir
    'Détermine dernière ligne du fichier de ref dans la colonne B
   LastRowRef = .Cells(.Rows.Count, "C").End(xlUp).Row
 
    'Application de la formule de copie de données sur la colonne B de la feuille EB
    .Range("B2:B" & LastRowEB).Formula = _
   "=VLOOKUP(A2,'" & feuilleRef.Name & "'!$B$2:$C$" & LastRowRef & ",2,0)"
End With
 
ClasseurRef.Close savechanges:=False
Set ClasseurRef = Nothing
 
End Sub
J'obtiens une erreur à cette ligne :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ClasseurRef.Activate
Set feuilleRef = Workbooks("ClasseurRef").Worksheets("Feuil1")
Merci d'avance pour votre aide !

Cordialement,

Nicolas