chercher une valeur dans un autre classeur

[imanou]

Bonjour,
je dois faire une macro qui va chercher des valeurs dans un tableau qui se trouve dans un autre classeur excel, et cela en fonction du nom d'un objet

dans l'exemple que j'ai joint,il faut que j'ai dans la colonne current sector le secteur qui correspond au nom de l'entreprise, et cette donnée se trouve dans le second fichier "data.xls"

j'ai donc essayé cela, mais sans succès,j'ai un message d'erreur qui s'affiche

Sub obj()
Dim i, n As Integer


Sheets("Feuil1").Select




n = Range(Range("A2"), Range("A2").End(xlDown)).Count

For i = 2 To n


Cells(i, 2).Value = Application.VLookup(Cells(i, 1).Value, Workbooks("C:\Users\imanou\Desktop\macro\data.xls").Sheets("Sheet1").Range("A3:E500"), 4, False)

Next i
End Sub



je ne vois pas comment faire ca autrement ni pourquoi j'ai cette erreur.

quelqu'un aurait-il une idée?

merci

 

[kjin]

Re : chercher une valeur dans un autre classeur

Bonsoir,
Essai comme ceci

n = Range(Range("A2"), Range("A2").End(xlDown)).Count
For i = 2 To n
    With Cells(i, 2)
        .Formula = "=vlookup(" & Cells(i, 1).Address & ",'C:\Users\imanou\Desktop\macro\[data.xls]sheet1'!$A$5:$E$500,4,0)"
        .Value = .Value
    End With
Next

A+
kjin

 

[Pierrot93]

Re : chercher une valeur dans un autre classeur

Re, boujour Kjin

Aarf, déjà posté ici :https://www.excel-downloads.com/threads/probleme-fonction-vlookup.148158/

évite de multiplier les posts pour une même question, ensuite cela devient difficile à suivre pour tout le monde...

bonne journée
@+