Discussion :

[safami]

Hello !

Me voici avec une nouvelle question

Dans mon excel, par macro, je crée un tableau croisée dynamique qui va piocher des infos dans un autre fichier.
Pour ce faire, je créé une connexion entre mon fichier et le fichier cible.
Le souci, est que si je ferme mon fichier, et que je re-crée un tableau croisé pointant sur la même source, ça ne fonctionne pas.
En effet, le nom de la connexion s’incrémente de 1 à chaque nouvelle connexion.

Mon but est de supprimer l'ensemble des connections existantes en début de macro.
Et là je coince.

Si j'enregistre une macro, ça me donne :

Code :

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

ActiveWorkbook.Connections("Nom_du_fichier_cible").Delete

Le souci est que je ne sais pas lire les nom des connections afin de les supprimer par la suite.
J'ai essayé

Code :

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

ActiveWorkbook.Connections().Name

Sans résultat, si vous avez une solution, je suis preneur.

Merci

PS :

J'ai essayé ça sans succès :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CasserLiens() 
Dim i As Long 
Dim Lien As Variant 
 
    Lien = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks) 
    If IsEmpty(Lien) Then Exit Sub 
    For i = LBound(Lien) To UBound(Lien) 
        ActiveWorkbook.BreakLink Name:=Lien(i), Type:=xlLinkTypeExcelLinks 
    Next i 
End Sub

[titival]

Bonjour

Pour supprimer toutes les connexions existantes :

Code :

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

1
2
3
4
 
For Each cn In ActiveWorkbook.Connections
       cn.Delete
Next

[safami]

Parfais ! ça marche à merveille !

Merci

[MarcelG]

Bonjour,

Pour une déclaration précise

Code :

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

Dim cm As WorkbookConnection