Lien entre trois classeurs via macro.

Sub lien2fichiers()
For i = 1 To 2000
If Not IsEmpty(Cells(i, 1)) Then
Cells(i, 2) = "Dim appxl As Excel.Application"
Dim fichier As Window
Dim feuille As Worksheet
Set appxl = CreateObject("Excel.application")
   
 
With appxl
    .Workbooks.Open "[B]S:\CLOTURE 2007 ANNEMASSE - B28 -\DIVERS\Base articles FT 072007.xls[/B]"
    .Visible = False
End With

Set fichier = appxl.Windows("Base articles FT 072007.xls")
            fichier.Activate
Set feuille = appxl.Sheets("Base articles FT 072007")
            feuille.Range("A1").Select
   
    Windows("gfg .xls").Activate
     Cells(i, 2).Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'Base articles FT 072007.xls'!R8C2:R17165C5,4,FALSE)"
   
appxl.Workbooks("Base articles FT 072007.xls").Close
Set appxl = Nothing
Else
Cells(i, 2) = ""
End If
Next i
End Sub