Pouet26
XLDnaute Nouveau
Bonsoir tout le monde,
J'utilise le code suivant pour exporter un onglet de mon classeur et l'enregistrer comme nouveau classeur :
Ce code fonctionne très bien sauf que le nouveau classeur ne récupère pas la palette personnalisée du fichier d'origine et la présentation s'en trouve fortement chamboulée.
Comme conseillé sur certains forums, j'ai bien essayé d'utiliser :
mais cela ne change rien.
Auriez vous une idée sur la façon de procéder ?
Je vous remercie par avance de votre aide
J'utilise le code suivant pour exporter un onglet de mon classeur et l'enregistrer comme nouveau classeur :
VB:
Sub Export()
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xlsx), *.xlsx")
End Sub
Ce code fonctionne très bien sauf que le nouveau classeur ne récupère pas la palette personnalisée du fichier d'origine et la présentation s'en trouve fortement chamboulée.
Comme conseillé sur certains forums, j'ai bien essayé d'utiliser :
VB:
ActiveWorkbook.Colors = ThisWorkbook.Colors
Auriez vous une idée sur la façon de procéder ?
Je vous remercie par avance de votre aide