Rompre liaisons

Bonsoir chers tous

Je voudrais par macro rompre toutes les liaisons que mon classeur a avec d'autres classeurs.

Merci.

Bonjour,

Une première réponse.

Cdlt.

Option Explicit

Public Sub BreakExternalLinks()
Dim wb As Workbook, vLinks As Variant, i As Long
    Set wb = ActiveWorkbook
    vLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
    If IsEmpty(vLinks) = False Then
        For i = 1 To UBound(vLinks)
            wb.BreakLink Name:=vLinks(i), Type:=xlLinkTypeExcelLinks
        Next i
    End If
End Sub