liaison non désirée dans copy

[JC de Lorient]

Bonjour le forum
Une nouvelle fois ai besoin d'aide
dans ce code :
Sheets('Données').Select
ActiveWindow.SelectedSheets.Delete
Sheets('Résultats').Select
ActiveWindow.SelectedSheets.Delete
Windows('Récap.xls').Activate
Sheets('Données').Select
Sheets('Données').Copy after:=newclass.Sheets(1)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Workbooks('Récap.xls').Activate
Sheets('Résultats').Select
Sheets('Résultats').Copy after:=newclass.Sheets(3)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
newclass.Save
newclass.Close

Ce code me supprime 2 feuilles du classeur newclass, ensuite il copie données de 'Récap' pour la coller dans newclass Tout marche bien sauf .......
il m'applique automatiquement des liaisons !!
Quoi rajouter à ce code pour éviter ça ?
Mille merci

 

[flo2002]

Bonjour JC,
Je sais pas si j'ai bien compris, mais de ce que j'en pense c'est que tu cherche à supprimer dans des formules des [nom]feuil. Si c'est le cas il suffirai de lancer une recherche du nom et de le remplacer par ''.
Mais autant je suis totalement à coté de la plaque et je n'ai rien compris!
en espérant t'avoir aider!

 

[Bebere]

bonjour jc,flo
testé sous excel2000,copie sans liaisons
With newclass
.Sheets('Données').Delete
.Sheets('Résultats').Delete
End With
With Workbooks('Récap')
.Sheets('Données').Copy after:=newclass.Sheets(1)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Sheets('Résultats').Copy after:=newclass.Sheets(3)
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End With
'newclass.Save
newclass.Close savechanges:=True
à bientôt

 

[JC de Lorient]

salut Bébère, flo
j'ai essayé ton code toujours le même résultat
suis avec Xl 2003 impossible de copier sans liaisons
j'abandonne cette méthode
merci a vous 2

 

[JC de Lorient]

re
en fait ce qui me pose pproblème ce sont les cellulles nommées qui restent en liaison avec le classeur d'origine

merci ....