Microsoft 365 Exporte d'une feuille avec les bonnes couleurs

[Pouet26]

Bonsoir tout le monde,

J'utilise le code suivant pour exporter un onglet de mon classeur et l'enregistrer comme nouveau classeur :

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 :

ActiveWorkbook.Colors = ThisWorkbook.Colors

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

 

[Dudu2]

Bonjour,

Pourquoi ne pas créer une copie du classeur et supprimer les feuilles à ne pas conserver ?

 

[Pouet26]

Bonsoir Dudu et merci pour ta réponse,

Principalement parce que j'essaye généralement de faire au plus simple, au plus direct et au plus "léger" en terme de code et de ressources, même si ça me fait galérer sur le plan technique. J'avoue que je ne pensais pas que ça serait si compliqué de simplement transférer une couleur d'un classeur à un autre. Sur les versions antérieures à 2007 c'était bien plus simple.

Outre le classeur assez lourd et le réseau assez lent, j'ai besoin qu'après l'export, l'utilisateur se retrouve sur le classeur d'origine et non sur une copie épurée.

En tout cas merci pour ton idée