Discussion :

[HankMoody]

Bonjour à tous,

Je souhaite utilisé la fonction Vlookup sur VBA ; j'ai regardé ici et là mais je n'arrive pas à trouver la syntaxe qui m'arrange.
Je veux tout simplement chercher une valeur qui se trouve dans un autre classeur dans un autre fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
rng = "\\MCA-SERVEUR\OPCVM\XAVIER\Tests\elise2012.xls"
rng2 = Workbooks(rng).Sheets(pointagevalo).Range("C1:D100")
z = WorksheetFunction.VLookup("& x &", rng2, 2, True)

Mais msg "l'indice n'appartient pas à la selection"

Des idées ...?

Merci

[Fvandermeulen]

Salut,

rng2 ne peut pas fonctionner, Workbooks attend le nom du fichier avec son extension pas le chemin complet !

De plus, avec ce bout de code tu ne peux pas faire de recherche sur le fichier si il n'est pas ouvert (c'est possible mais plus complexe)
Ci-dessous un proposition qui devrait solutionner ton problème.
(Pour info, d'habitude j'utilise .find pour ce genre d'action, à l'occasion regarde, c'est un plus large qu'un Vlookup)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim WsC As Workbook, WsS As Workbook
Set WsC = ActiveWorkbook 'Défini le fichier actif comme fichier cible
 
Rng = "\\MCA-SERVEUR\OPCVM\XAVIER\Tests\elise2012.xls"
Workbooks.Open (Rng) 'Ouvre le fichier (possible de faire sans ouvrir mais plus complexe)
Set WsS = ActiveWorkbook 'Affecte le fichier à la variable en tant que source
Set rng2 = WsS.Sheets(pointagevalo).Range("C1:D100") 'pointagevalo est bien une variable ? Sinon faut les ""
z = WorksheetFunction.VLookup("& x &", rng2, 2, True)
WsS.Close False 'Ferme le fichier source sans sauver

A+