JC de Lorient
XLDnaute Impliqué
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
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