Supprimer les connections du classeur

bonjour ,

je voudrais supprimer les connexions de certaines feuilles de mon classeur ..

je souhaiterai conserver les connexions de la feuil1

et supprimer les connections des feuil2 et feuil3

onglet données - connections du classeur

je voulais remplacer ActiveWorkbook par Worksheets mais sans réussite

Dim xConnect As Object
For Each xConnect In ActiveWorkbook.Connections
If xConnect.name <> "ThisWorkbookDataModel" Then xConnect.Delete
Next xConnect

Bonjour,

se sont des liens xlExcelLinks ou xlOLELinks ?

il s'agit de liens

xlOLELinks le lien pointe vers une source OLE.

re,

si il n'y a que la connection "ThisWorkbookDataModel" sur la feuil1 il ne devrait pas y avoir de problème,

seul cette connection ne sera pas détruite.

ok merci j'ai compris

j’écrivais la destination au lieu d’écrire le nom de la connexion

problème résolu