supprimer toutes les liaisons externes d'un classeur

[formateurmasque]

Bonjour,

J'ai un classeur avec un certain nombre de liaisons Externes (env 60) surtout utilisés dans des graphes. je peux les supprimer dans Edition/liaison mais bon.
qq a t il une macro qui détruit toutes ces liaisons.

Merci pour votre contribution.

@+
FM

 

[Fchris]

Re : supprimer toutes les liaisons externes d'un classeur

Bonjour formateurmasque, le Forum,

Essaie avec ce module en pièce jointe (trouvé sur le forum), ça fait longtemps que je ne m'en suis pas servi mais dans mon souvenir, il cherche toutes les liaisons d'un classeur et ensuite tu as le choix de les supprimer ou non.

@+

Fchris

Edit : Le module se place automatiquement dans le menu outil une fois ouvert

 

[Cousinhub]

Re : supprimer toutes les liaisons externes d'un classeur

Bonjour, peut-être avec ceci :

  With ActiveWorkbook
        Lien = .LinkSources(xlLinks)
        For Each Lien In .LinkSources
            ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
        Next Lien
End With

 

[formateurmasque]

Re : supprimer toutes les liaisons externes d'un classeur

Merci bhbh

Cela marche.

@+
FM

 

[darkfire]

Re : supprimer toutes les liaisons externes d'un classeur

Bonjour, peut-être avec ceci :

  With ActiveWorkbook
        Lien = .LinkSources(xlLinks)
        For Each Lien In .LinkSources
            ActiveWorkbook.BreakLink Lien, Type:=xlExcelLinks
        Next Lien
End With

hello

j'ai essayé ta macro mais je n'arrive pas à la faire marcher (je suis extrêmement novice en macro)
comment faire ?