Discussion :

[steps5ive]

Bonjour,

J'ai une petite macro qui déplace une feuille dans un nouveau classeur. J'ai ajouté ce code afin de rompre les liaisons.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    tabLiens = ActiveWorkbook.LinkSources(xlExcelLinks)
    For i = 1 To UBound(tabLiens)
        ActiveWorkbook.BreakLink Name:=tabLiens(i), Type:=xlExcelLinks
    Next i

Toutes les liaisons de ma feuille pointent sur la même plage de données. Lorsque j'ouvre mon nouveau classeur, une seule cellule a conservé sa liaison.

Auriez-vous une idée pourquoi il n'y a qu'une cellule qui agit comme ça?

Merci et bonne journée!

[papouclo]

Bonjour,
Remplacer peut être en ligne 3 du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 1 To UBound(tabLiens)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To UBound(tabLiens)

Si l'on n'a pas précisé Option base 1 avant de déclarer le tableau tabLiens, l'index le plus bas du tableau contenant le premier lien est 0.
Cordialement
Claude

[steps5ive]

Merci,

J'avais effectivement pensé à ce point mais ça fonctionne de ce côté. Je n'ai qu'une seule liaison dans ma table. La liaison se brise pour toutes les cellules sauf une.