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
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