Bonjour à tous,
Voici le code que j'ai récupéré et adapté pour copier mes feuilles vers un nouveau classeur.
La fonction copie fonctionne bien, le format est conservé sauf que les formules ne sont pas supprimées dans le classeur de destination.
Ce que je voudrais c'est que dans le classeur de destination il n'y ai que les valeurs tout en gardant le format car le nouveau classeur est destiné à des utilisateurs.
Pourquoi la suppression des formules ne fonctionne pas ?
Une solution consisterait à protéger par une macro les feuilles de destination (cellules verroullées et utilisation de l'option de protection feuille du menu outil) mais cela ne satisfait pas car l'utilisateur a toujours la possibilité d'enlever le mot de passe.
Merci pour votre aide.
Sub Copie()
'
' Copie Macro
' Macro enregistrée le 23/09/2008
SaveClasseur
' Pour conserver les couleurs de la palette
ActiveWorkbook.Colors(27) = RGB(221, 221, 221)
ActiveWorkbook.Colors(28) = RGB(255, 255, 102)
End Sub
Function SaveClasseur()
Dim Classeursource As Workbook
Dim ClasseurCible As Workbook
Set Classeursource = ActiveWorkbook
Classeursource.Sheets(Array("Accueil", "P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13", "P14")).Select
Classeursource.Sheets(Array("Accueil", "P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13", "P14")).Copy 'Copie les feuilles sélectionnées
Set ClasseurCible = ActiveWorkbook 'Au cas ou .. pour garder un accés au nouveau classeur
'Suppression des formules
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(1, 1).Select
End Function
Voici le code que j'ai récupéré et adapté pour copier mes feuilles vers un nouveau classeur.
La fonction copie fonctionne bien, le format est conservé sauf que les formules ne sont pas supprimées dans le classeur de destination.
Ce que je voudrais c'est que dans le classeur de destination il n'y ai que les valeurs tout en gardant le format car le nouveau classeur est destiné à des utilisateurs.
Pourquoi la suppression des formules ne fonctionne pas ?
Une solution consisterait à protéger par une macro les feuilles de destination (cellules verroullées et utilisation de l'option de protection feuille du menu outil) mais cela ne satisfait pas car l'utilisateur a toujours la possibilité d'enlever le mot de passe.
Merci pour votre aide.
Sub Copie()
'
' Copie Macro
' Macro enregistrée le 23/09/2008
SaveClasseur
' Pour conserver les couleurs de la palette
ActiveWorkbook.Colors(27) = RGB(221, 221, 221)
ActiveWorkbook.Colors(28) = RGB(255, 255, 102)
End Sub
Function SaveClasseur()
Dim Classeursource As Workbook
Dim ClasseurCible As Workbook
Set Classeursource = ActiveWorkbook
Classeursource.Sheets(Array("Accueil", "P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13", "P14")).Select
Classeursource.Sheets(Array("Accueil", "P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P12", "P13", "P14")).Copy 'Copie les feuilles sélectionnées
Set ClasseurCible = ActiveWorkbook 'Au cas ou .. pour garder un accés au nouveau classeur
'Suppression des formules
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cells(1, 1).Select
End Function