Discussion :

[Kestion100]

Bonjour,
J'ai trouvé un code qui me permet d'ouvrir tous les n classeurs liés à un classeur A quand j'ouvre A (ce sont des classeurs qui sont liés par des formules):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
For X = 1 To UBound(TabLiaisons)
 
      Debug.Print "Liaison '" & TabLiaisons(X) & "': " & IIf(Dir(TabLiaisons(X)) = "", "erronée", "Ok !")
      Verification = CEClasseurOuvert(TabLiaisons(X))
If Verification = False Then
      Workbooks.Open filename:=TabLiaisons(X), UpdateLinks:=3
End If
      Next X

Quand le classeur n'a aucun classeur lié, j'ai une erreur "l'indice n'appartient pas à la sélection".

Je souhaiterais gérer ce cas: "quand le classeur ne contient pas de lien", comment dois-je m'y prendre?


Merci beaucoup du coup de main.

[Kestion100]

Petite précision:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TabLiaisons = Workbooks(MonFichier).LinkSources

[deedolith]

Hello,

D'après la documentation:
https://learn.microsoft.com/fr-fr/of...ok.linksources

Il convient de tester au préalable si le classeur contient des liaisons.
Par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Wb As Excel.Workbook
Set Wb = Workbooks(MonFichier)
 
If(IsEmpty(Wb.LinkSources) Then
 
End If