macro rompre les liaisons

[bougla]

Bonjour,
J’ai crée une macro qui permet de rompre les liaisons, le problème c’est que cette macro marche qu’avec les liaisons de fichiers désignés lors de la création de la macro (nom, chemin). Ce que j’aimerai c’est d’avoir une macro qui puisse marcher avec n’importe quel fichier.
Je ne sais pas si mes explications sont assez claires.

Sub enregistrerSous2003()
'

ActiveWorkbook.BreakLink Name:="C:\A_FAIRE\fichier2.xls", Type:= _
xlExcelLinks
ActiveWorkbook.BreakLink Name:="C:\A_FAIRE\fichier1.xls", Type:= _
xlExcelLinks
End Sub


Merci

 

[Catrice]

Re : macro rompre les liaisons

Bonjour,

Je ne sais pas si j'ai bien compris mais le code suivant supprime les liens (s'il y en a) du fichiers actif.

Sub Macro1()
If Not IsEmpty(ActiveWorkbook.LinkSources(xlExcelLinks)) Then
For Each X In ActiveWorkbook.LinkSources(xlExcelLinks)
ActiveWorkbook.BreakLink Name:=X, Type:=xlExcelLinks
Next
End If
End Sub

 

[bougla]

Re : macro rompre les liaisons

c'est ça, merci Catrice
bonne journée

 

[merinos]

Re : macro rompre les liaisons

Super,


Ceci reponds a une question que j'ai posé il y a 1 an...

enfin presque... car la même procedure mais avec "changelink"fera le boulot.