Macro pour Excel 2013

tomaromie Messages postés 2 Statut Membre -  
tomaromie Messages postés 2 Statut Membre -
With ActiveWorkbook
Liens = .LinkSources
End With

If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each x In ActiveWorkbook.LinkSources(xlExcelLinks)
ActiveWorkbook.BreakLink Name:=x, Type:=xlExcelLinks
Next
End If

Macro fonctionnant sur Excel 2007 mais pas sur Excel 2013 pourquoi besoin d'aide.
Merci d'avance.
A voir également:

1 réponse

pilas31 Messages postés 1878 Statut Contributeur 647
 
Bonjour,

J'ai cherché quelques exemples et on trouve plutot cette syntaxe :

ActiveWorkbook.BreakLink Name:=x, Type:=xlLinkTypeExcelLinks

A essayer
0
tomaromie Messages postés 2 Statut Membre
 
Merci bcp je vais essayer
Cordialement
0