Bonjour,

J'ai un problème récurent pour supprimer des liaisons sur des classeurs.

Microsoft sépcifie que la commande
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveWorkbook.BreakLink
suppose qu'au moins une formule existe dans le classeur actif lié à une autre source Excel.

Séquence complète
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
Sub pourRompreLesLiaisons()
Dim x As Variant
    If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
        For Each x In ActiveWorkbook.LinkSources(xlExcelLinks)
            ActiveWorkbook.BreakLink Name:=x, Type:=xlExcelLinks
        Next
    End If
End Sub
Or dans mon cas je n'ai pas de formule (findlink ne trouve rien).
J'ai déjà eu le cas où la liaison se trouvait dans le réperoire des noms des listes de validation (vieux post que j'avais ouvert et solutionné).

Mais là dans mon cas, je ne trouve pas de formule, pas de nom et pourtant la liaison est vue, le nom de la liaison est trouvé, mais la commande "Breaklink" ne fonctionne pas.

J'ai vu quelque part que le chemin du fichier pouvait poser problème, j'ai été jusqu'à recréer les répertoires et un fichier correspondant mais sans succès. D'ailleurs dans la liaison, je n'arrive pas à voir le nom de la feuille donc j'ai une erreur feuille inconnue.

Avez vous une autre idée
Merci pour vos suggestion
Denis