Rompre une liaison en VBA

Bonjour,

Malgré de nombreux posts à ce sujet je n'arrive pas à rompre une liaison entre 2 fichiers en VBA.

A partir de mon fichier TEST, j'essaie de rompre une liaison entre mon fichier US et mon fichier CASH:

Voici mon code :

Workbooks.Open Filename:= _
        "\\chemin du fichier\US.xlsx" _
        , UpdateLinks:=0
    ActiveWorkbook.BreakLink Name:= _
        "\\chemin du fichier\CASH.xlsx" _
        , Type:=xlExcelLinks
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub

Quand je lance la macro, j'ai le message suivant : "La méthode Breaklink de l'objet 'Worlbook a échoué".

Pourriez-vous m'aider, en vous remerciant par avance.

Bonjour,

Combien de liens externes différents dans le classeur ?

Cdlt.

il y a un seul lien.

Re,

Essaie ainsi.

Le classeur externe n'a pas besoin d'être ouvert (me semble-t-il !?).

Public Sub RemoveLinks()
Dim wb As Workbook, vLinks As Variant
    Set wb = ActiveWorkbook
    vLinks = wb.LinkSources(xlLinkTypeExcelLinks)
    If Not IsEmpty(vLinks) Then
        wb.BreakLink Name:=vLinks(1), Type:=xlLinkTypeExcelLinks
    End If
End Sub

si, le fichier a besoin d'être ouvert, car j'ai besoin de copier une plage de cellules.

Re,

As-tu essayé ?

Cdlt.