Lancer un fichier Excel en VB, pb de liaison

[joquetino]

Bonjour à tous,

J'ai un p'tit souci avec un fichier Excel (fichierRes.xls). Dans ce fichier, j'ai plusieurs recherchev avec des liaisons vers un fichier externe (fichierDonnees.xls). Tout marche parfaitement bien.

J'essaye de lancer ces deux fichiers via une appli visual Basic 6. Pour cela, j'utilise le code suivant :

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlRang As Excel.Range
Dim xlSheet As Excel.Worksheet

Set XlApp2 = New Excel.Application
With XlApp2
    'Ouverture du document XLS
   Set xlBook = .Workbooks.Open(FileName:=App.Path + "/FichiersDonnees.xls", ReadOnly:=True, Editable:=False) ' Français
    XlApp2.Visible = False
End With


Set xlApp = New Excel.Application
With xlApp
    'Ouverture du document XLS
    Set xlBook = .Workbooks.Open(FileName:=App.Path + "/fichierRes.xls",         ReadOnly:=False, Editable:=True) ' Français
End With
xlApp.Visible = True

'Détruit les objets
Set xlRang = Nothing
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing
Set xlApp2 = Nothing
End Sub

Le problème, c'est que les liens externes ne se font plus. J'ai le droit à un beau #ref!, même en essayant de mettre à jour les liaisons.
Auriez-vous une idée du pb?

Merci d'avance.