VBA - Définir une range d'un autre fichier

[etamx6]

Bonjour, voici ma question:

J'ai 2 fichiers excel qui ne sont pas dans le même dossier que je ne peux pas bouger de place.
Par ex: C:\chemin1\1.xls et C:\chemin2\2.xls
Dans 2.xls j'ai une macro qui doit faire un vlookup sur 1.xls.

Jusqu'ici j'utilisais un cell.formula = "=vlookup..." qui fonctionnait bien mais je veux faire quelque chose de plus joli (et plus simple) et donc utiliser vraiment VBA! Pour cela j'utilise Application.Vlookup de la manière suivante: (ceci est juste un exemple)

Dim rng As Variant
rng = Sheets(1).Range("A:F")
Dim vlook As Variant
vlook = Application.Vlookup("A1",rng,2,0) 
Sheets(1).Range("G1") = vlook

Ce code marche bien mais j'aimerai que rng aille chercher A:F dans 1.xls!
Est-ce possible?

Merci d'avance!

Christophe

 

[PMO2]

Re : VBA - Définir une range d'un autre fichier

Bonjour,

Peut-être avec le code suivant

'--- A adapter ---
Const Chemin As String = "C:\chemin1\1.xls"
'-----------------

Sub aa()
Dim WB As Workbook
Dim rng As Range
Application.ScreenUpdating = False
Set WB = GetObject(Chemin)
Set rng = WB.Sheets(1).Range("A:F")
On Error Resume Next
Sheets(1).Range("G1") = Application.WorksheetFunction.VLookup([a1], rng, 2, 0)
If Err <> 0 Then
  MsgBox [a1] & " introuvable"
  Err.Clear
End If
On Error GoTo 0
WB.Close
Set WB = Nothing
Application.ScreenUpdating = True
End Sub

Cordialement.

PMO
Patrick Morange