Discussion :

[onyirimba]

Bonjour,
J'ai un fichier qui est lié à 4 autres fichiers Excel par des liaisons:
Suivi Variation IBE VBA TEST TEST 1.xlsm
Suivi Variation IBE VBA TEST TEST 2.xlsm
Suivi Variation IBE VBA TEST TEST 3.xlsm
Suivi Variation IBE VBA TEST TEST 4.xlsm

J'ai essayé le codage VBA ci-dessous pour supprimer uniquement les liens des fichiers Suivi Variation IBE VBA TEST TEST 1.xlsm et Suivi Variation IBE VBA TEST TEST 2.xlsm
mais cela ne fonctionne pas (voir capture d'écran ci-dessous)
Est-ce que vous pouvez m'aider ?
j'ai joint un fichier illustratif


Merci beaucoup de votre aide.
Cordialement.

[onyirimba]

Merci Forum
J'ai trouvé la solution

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
    If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
            For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
 
            If X Like "*" & "Suivi Variation IBE VBA TEST TEST 1.xlsm" & "*" = True Or X Like "*" & "Suivi Variation IBE VBA TEST TEST 5.xlsm" & "*" = True Then
 
                ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
            End If
        Next
    End If
End Sub