Liste tous les liens de classeur dans un classeur en utilisant VBA dans Microsoft Excel
Placez le code ci-dessous dans le module standard
Sub ListLinks() Dim aLinks As Variant aLinks = ActiveWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then Sheets.Add For i = 1 To UBound(aLinks) Cells(i, 1).Value = aLinks(i) Next i End If End Sub