Impossible de rompre des liaisons entre un classeur Excel et d’autres classeurs avec l’état « Erreur »

Question

Bonjour,

Vous trouverez ci-joint les liaisons que je n'arrive pas les supprimer.

J'ai essayé tous les moyens, y compris avec le script ci-dessous, en vain.

Je suppose c'est une cause de mon problème de performance de mon outil Excel.

Je veux absolument faire disparaitre ces liaisons.

Sub SupprimerLiaisons()

Dim Liaisons As Variant

Liaisons = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Liaisons) = True Then Exit Sub

For LiaisonsTrouvee = 1 To UBound(Liaisons)

ActiveWorkbook.BreakLink _

    Name:=Liaisons(LiaisonsTrouvee), _

    Type:=xlLinkTypeExcelLinks

Next LiaisonsTrouvee

End Sub

MERCI D'AVANCE.

Xavier

Answer 1

C'est une "macro complémentaire". La page (en anglais dédiée est :

https://www.manville.org.uk/software/findlink2003.htm

Pour l'installer, enregistre le fichier sur ton disque. Dans Excel, Clique sur l'onglet Développeur, Compléments Excel, Parcourir. Navigue jusqu'au dossier ou tu as enregistré le fichier et valide. Coche la case "FindLink" et valide. Pour l'exécuter, clique sur l'onglet Compléments, puis sur Find Links.

Dans la boite de dialogue , entre un "*" :

Clique sur OK puis réponds aux messsges qui te proposent de supprimer les liaisons.

Daniel

Answer 2

Bonjour Daniel,

MERCI pour ta réponse.

J'ai téléchargé le fichier Excel proposé sur le lien :

https://www.dropbox.com/s/ipcbkm1p17jsa6a/findlink.xla?dl=0

Mais ce fichier ne contient pas de macros...

Bien cordialement,

Xavier

Answer 3

Bonjour,

Il existe une macro complémentaire pour supprimer les liens récalcitrants. Tu peux la télécharger ici :

https://www.dropbox.com/s/ipcbkm1p17jsa6a/findlink.xla?dl=0

Cordialement.

Daniel

PS. le complément parle anglais ;-(