suppression d'un lien en code vb

Bonjour a tous,
voila a partir de mon fichier actif, je deplace une feuille de ce classeur pour l'enregistrer dans un nouveau classeur qui se trouvera sur un autre serveur, jusque la pas de probleme.
Mais a partir du monment ou j'ouvre ce nouveau classeur sur l'autre serveur , j'ai un message de demandant de modifier les liaisons, donc j'ai modifié mon code vb pour que les liaisons soient interrompues lors de la création de ce classeur, mais rien ne se passe, pourriez vous m'aider?

Voici le code

nomfich2 = ActiveWorkbook.FullName 'nom du fichier en cours sur le serveur 1
nomfic = "\\Srvdonzere21\l_srvbpe\Gestion_Centrale\" & Sheets("base").Range("e46").Value & ".xls"

Sheets("Export_base").Move
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
nomfic, FileFormat:= _
xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False ' enregistrement du fichier sur le serveur 21
nomfic.BreakLink Name:=nomfich2, Type:=xlExcelLinks 'suppression des liens avec le fichier source
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True