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.

1 réponse

  1.
    pilas31 Messages postés 1878 Statut Contributeur 648
     
    Bonjour,

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

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

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses