Comment obtenir une liste de tous les dossiers liés en externe dans Excel
Souhaitez-vous savoir vers quels classeurs un tableau contient des liens externes ? Utilisez la macro suivante pour créer une table appropriée sous contrôle de macro :
Liste des sous-liens ()
Dim NewTable en tant que feuille de calcul
Dim List en tant que variante
Diminuer en tant qu'entier
Dim a comme chaîne
Liste = ActiveWorkbook.LinkSources (xlExcelLinks)
Si non est vide (liste) alors
Définir NewTable = ActiveWorkbook.Worksheets.Add
Pour i = 1 à UBound (liste)
NouvelleTable.Cellules (i, 1) = Liste (i)
Ensuite je
Autre
a = MsgBox ("Aucun raccourci trouvé !", vbOKOnly, "Note")
Fin si
Fin du sous-marin
La macro crée un nouveau tableau vide dans le classeur actif et répertorie tous les classeurs liés en externe dans des cellules. Chaque chemin n'apparaît qu'une seule fois - vous obtenez donc un aperçu aussi compact que le montre la figure suivante :
Si aucun lien externe n'est trouvé, Excel l'indiquera avec une fenêtre correspondante :
La macro utilise la collection LinkSources. Les entrées individuelles de cette liste sont transférées vers les cellules d'une nouvelle feuille de calcul.
