Vlookup vba fichier externe

sircroco · 25 Décembre 2018

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

Jacky67 · 25 Décembre 2018

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

sircroco · 25 Décembre 2018

Merci, le code marche j'ai rajouté un truc en plus.

joyeux noël !

Vlookup vba fichier externe

sircroco

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

sircroco

XLDnaute Nouveau

Discussions similaires

Vlookup vba fichier externe

sircroco

XLDnaute Nouveau

Pièces jointes

Jacky67

XLDnaute Barbatruc

sircroco

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency