Supprimer la liaison entre fichier

Bonjour, suite à une copie de feuille de puis un autre fichier j'ai une liaison entre fichiers que je voudrais supprimer.

Via le menu données-->modifier les liaisons mais cela ne fonctionne pas.

Comment puis je faire?

MErci.

Bonsoir,

As tu essayé, rompre la liaison ?

Cordialement.

Bonsoir,

Une 'tite macro qui te fera ça très bien.

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

A+

[quote="[Zebulon]" post_id=784279 time=1564243521 user_id=63766]

Bonsoir,

As tu essayé, rompre la liaison ?

Cordialement.

[/quote]

oui, cela n'a pas fonctionné

galopin01 a écrit :

Bonsoir,

Une 'tite macro qui te fera ça très bien.

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

A+

J'avais également essayé et exécuté sur tous les ongletsauparavant, mais la liaison ne disparait pas...

je joins le fichier au cas ou...

Bonjour,

Ton fichier contient des données personnelles ?

Dans l'affirmative, vire les fichiers joints et envoie un nouveau fichier anonymisé.

Cdlt.

Bonjour à tous,

Je te retourne ton fichier sans liaison.

J'ajoute Feuil1.xls est la liste des liaisons supprimées afin que tu corriges ton fichier.

Enfin, je te donne un lien vers l'utilitaire que j'ai employé.

http://www.manville.org.uk/software/findlink.htm

ric

fichier anonymé:

Bonjour à tous,

Feuil1.xls est la liste des cellules à corriger pour supprimer toutes les liaisons.

ric

Merci.