Rompre liaisons dans VBA Fermé

Question

Bonjour,

Je souhaiterais créer une macro pouvant rompre les liaisons mais ça ne marche pas.
"Erreur d'exécution :'1004' :
La méthode 'Breaklink' de l'objet '_Workbook' a échoué"

Voici ci-dessous ma macro obtenue par enregistrement.

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets(Array("SYNTHESE", "HEURES travaillées", "Mars 2014", "Avril 2014", _
        "Mai 2014", "Juin 2014", "Juillet 2014", "Août 2014")).Select
    Sheets("Août 2014").Activate
    Sheets(Array("SYNTHESE", "HEURES travaillées", "Mars 2014", "Avril 2014", _
        "Mai 2014", "Juin 2014", "Juillet 2014", "Août 2014")).Copy
    Range("I18").Select
    ActiveWorkbook.BreakLink Name:="S:\Ventes\TB MAGASIN\TB Magasin 2602.xlsx", _
        Type:=xlExcelLinks
End Sub


Merci de votre aide

WeaponEDGE · Answer

Bonjour,

Essayes ça à la place de ton Braklink :
sur toutes les feuilles présentes sur le fichier ça supprimera tous les liens Hypertext

For i = 1 To Sheets.Count
        Sheets(i).Hyperlinks.Delete
    Next i

sos10000 · Answer

Merci beaucoup de ton aide. Je n'ai plus de message d'erreur, par contre les liens sont toujours là. Je suis désespérée. Que faire ?

Rompre liaisons dans VBA

2 réponses

Discussions similaires