Rompre liaisons dans VBA
sos10000
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
sos10000 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
sos10000 Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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 ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Ce classeur comporte des liaisons avec une ou plusieurs sources externes ✓ - Forum Excel
- Find vba - Astuces et Solutions
- &Quot;Ce classeur comporte des liaisons avec un autre classeur" ✓ - Forum Excel
