Lancer un fichier Excel en VB, pb de liaison

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

joquetino

XLDnaute Junior
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 :

Code:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
1 K
Retour