Rompre liaisons dans VBA

sos10000 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention   -  
 WeaponEDGE -
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

2 réponses

Réponse 1 / 2
WeaponEDGE
 
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
0
Réponse 2 / 2
sos10000 Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
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 ?
0
WeaponEDGE
 
En fait je me suis trompé. Le code que je t'ai donné est pour supprimer les liens hypertext et non pas les lien entre plusieurs fichiers :

Voici le bon code

For i = 1 to sheets.count
Sht_Name = sheets(i).name
ActiveWorkbook.BreakLink Name:=Sht_Name, Type:=xlExcelLinks
next i
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Impossible de supprimer une liaison
irettigam -
CoBruX -

26 réponses
[Excel] supprimer liaison
ricou34 -
MDIA -

19 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses