Rompre liaisons dans VBA

Fermé

sos10000 Messages postés 4 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 26 février 2014 - 26 févr. 2014 à 16:31
sos10000 Messages postés 4 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 26 février 2014 - 26 févr. 2014 à 17:03

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

A voir également:

Rompre liaisons dans VBA
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba écrire dans une cellule ✓ - Forum Excel
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation

2 réponses

Réponse 1 / 2

Zoul67 Messages postés 1959 Date d'inscription lundi 3 mai 2010 Statut Membre Dernière intervention 30 janvier 2023 149
26 févr. 2014 à 16:45

Bonjour,

https://social.msdn.microsoft.com/Forums/office/en-US/b4984c60-80cc-437e-b162-eab1abcddf88/excel-2010-vba-workbookbreaklink-code-identifies-but-fails-to-break-link?forum=exceldev

A+

Réponse 2 / 2

sos10000 Messages postés 4 Date d'inscription mercredi 26 février 2014 Statut Membre Dernière intervention 26 février 2014
26 févr. 2014 à 17:03

Merci beaucoup, ça marche nickel !!!

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Impossible de supprimer une liaison

Méthode find dans VBA - Recherche de données sous Excel

ouverture d'un fichier excel à partir d'un code VBA