Macro pour rompre des liaison

Bonjour,

Je poursuis mon apprentissage et mon exploration des macros et ce forum est très interresante pour toute les réponses qu'on y trouvent. Mais après quelques recherches, je n'ai pas trouvé la réponse à ma question du coup je vous la pose directement.

J'ai créé un document excel et une des pages doit être diffusée pour information. Mais je ne veux diffuser que ce qui est visible sur cette page et surtout ne pas mettre de liaisons.

Du coup voilà ce que je fais :

• copier la page et la mettre dans un nouveau classeur
• édition liaison : rompre les liaisons

Et ça marche. Jusque là tout va bien. Si quelqu'un a des idée pour faire autrement elle sont bien venues bien sûr.

Mais je veux automatiser tous ça grâce à une macro du coup j'ai refais les opérations en enregistrant la macro et voici le code que j'obtient :

Sub fiche_finale()

    Sheets("Résultats évaluation").Select
    Sheets("Résultats évaluation").Copy
    ActiveWorkbook.BreakLink Name:= _
        "\c : \My Documents\Processus Achat\essai enregistrement dans ce dossier\essai 1.xls" _
        , Type:=xlExcelLinks
End Sub

Mais ça ne rompt la liaison que sur le graphique et pas dans les cellules : cellules C26 et D50

Voici une copie du fichier : https://www.excel-pratique.com/~files/doc/wqjtvessai_1.xls

Merci d'avance pour vos réponses.

Amicalement,

Bonjour,

essaie avec ce code :

Sub fiche_finale()
Sheets("Résultats évaluation").Copy
Lks = ActiveWorkbook.LinkSources()
If Not IsEmpty(Lks) Then
    For i = 1 To UBound(Lks)
         ActiveWorkbook.BreakLink Name:=Lks(i), Type:=xlExcelLinks
    Next i
End If
End Sub