Destructions de liens.

boulou · 27 Septembre 2009

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 · 27 Septembre 2009

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 · 27 Septembre 2009

Re : Destructions de liens.

Bonjour à tous,

Bonjour à toi aussi...

Peux-tu essayer avec :

Code:

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 · 27 Septembre 2009

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

Code:

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.

Destructions de liens.

boulou

XLDnaute Occasionnel

Brigitte

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Guest

Guest

Discussions similaires

Destructions de liens.

boulou

XLDnaute Occasionnel

Brigitte

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency