Vlookup vba fichier externe

sircroco

XLDnaute Nouveau
Bonsoir !

Je reprend du service dans le code VBA, j'ai créé une macro pour faire une toute simple rechercheV par rapport à un autre fichier (le fichier B) mais elle ne fonctionne pas, il dit que l'indice n'appartient pas à la sélection pourtant je pense avoir écrit correctement mon code...

VB:
Dim i As Long
Dim taille As Long

    taille = ThisWorkbook.Worksheets("Prix").Cells(Rows.Count, 1).End(xlUp).Row
 
    For i = 1 To taille
        ThisWorkbook.Worksheets("Prix").Cells(2, 2).Offset(i) = Application.VLookup(ThisWorkbook.Worksheets("Prix").Cells(2, 1).Offset(i).Value, Workbooks("C:\Users\pc\Desktop\B").Worksheets("Donnees").Range("B:D"), 3, False)
    Next i

End Sub

mes fichiers sont en pj, cordialement
 

Pièces jointes

  • macro.xlsm
    17.7 KB · Affichages: 27
  • source.xlsx
    8.4 KB · Affichages: 22

Jacky67

XLDnaute Barbatruc
Bonjour,
Sans Macro ???
En B2 du classeur "Macro.xlsm" feuille "Prix"
Il faudra vérifier le chemin exact du classeur "source.xlsx"
dans l'exemple ==> C:\Users\pc\Desktop\

Code:
=RECHERCHEV(A2;'C:\Users\pc\Desktop\[source.xlsx]Donnees'!$B:$D;2;0)

Et recopier vers le bas

En VBA
Toujours en adaptant le chemin
VB:
Sub recherche()
   With Range("b2:b" & Cells(Rows.Count, 1).End(xlUp).Row)
   .Formula = "=VLOOKUP($a2,'C:\Users\pc\Desktop\[source.xlsx]Donnees'!$b:$d,2,0)"
   .Value = .Value
   End With
End Sub


Joyeux noël
 
Dernière édition:

Discussions similaires

Réponses
6
Affichages
202
Réponses
12
Affichages
225

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T