Suppression des liaisons avec classeurs précédents lors de compilation

[Anna_2013]

Bonjour,

J'ai créé cette macro pour supprimer les liens avec les classeurs qui sont copiés dans le fichier unique.

Cependant elle ne fonctionne plus et je n'arrive pas à la faire fonctionner

Pourriez vous svp m'aider

Merci

Sub BreakLinks()
Dim astrLinks As Variant
Dim iCtr As Long
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If IsArray(astrLinks) Then
For iCtr = LBound(astrLinks) To UBound(astrLinks)
ActiveWorkbook.BreakLink Name:=astrLinks(iCtr), _
Type:=xlLinkTypeExcelLinks
Next iCtr
End If
End Sub

 

[job75]

Re : Suppression des liaisons avec classeurs précédents lors de compilation

Bonjour Anna,

On vous donne des solutions qui fonctionnent :

https://www.excel-downloads.com/threads/macro-vba-concatener-sans-liaisons-avec-fichiers.207120/

Comme vous n'êtes pas fichue de les mettre en place vous en fabriquez d'autres qui ne marchent pas.

Et à chaque fois vous créez un nouveau fil (14 en 8 jours).

On finit par se lasser de vous aider.

A+