Microsoft 365 Exporte d'une feuille avec les bonnes couleurs

  • Initiateur de la discussion Initiateur de la discussion Pouet26
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 :
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
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour