Destructions de liens.

[boulou]

Y a t il un moyen de détecter la totalité des liens existants entre des classeurs ? Je suis convaincu que certains subsistent dans une application et je n'arrive pas à les trouver.

Merci de vos lumières.

 

[Brigitte]

Re : Destructions de liens.

Bonjour,

A tout hasard, as tu tenté : Edition/Liaisons ?

Si Liaisons est grisé, c'est qu'il n'y en a pas. Si il est actif (noir) tu peux choisir de les voir, les rompre...

A mon avis, tu connais ca, mais bon...

 

[JCGL]

Re : Destructions de liens.

Bonjour à tous,

Bonjour à toi aussi...

Peux-tu essayer avec :

Option Explicit

Sub Del()
ActiveSheet.Hyperlinks.Delete
End Sub

A+ à tous

Edition : J'ai interprété par liens HyperTextes... Je laisse quand même...
Bisous T'ites Couettes

 

[Guest]

Re : Destructions de liens.

Bonjour le fil,


Sinon, tu peux essayer cette macro qui détruits les liens (mais pas les liens hypertexts) du classeur actif.
Les liens seront transformés en valeur fixe

Sub supprimeLiens()
    Dim Liens As Variant
    Dim i As Integer
    Liens = ActiveWorkbook.LinkSources(Type:=xlExcelLinks)
    If Not IsEmpty(Liens) Then
        For i = LBound(Liens) To UBound(Liens)
            ActiveWorkbook.BreakLink Liens(i), xlLinkTypeExcelLinks
        Next i
    End If
End Sub

A++
Hello JC🙂🙂🙂
Hi, Brigitte🙂🙂

[Edition] Grâce à l'oeil de lynx de l'ami JC j'ai corrigé l'erreur de la boucle For (lbound) au lieu de 2 fois Ubound.