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 |
Partager