VBA : Variable thème Office

Bonjour,

J'aimerais insérer une instruction de ce genre dans une macro :

Dim CurrentTheme as XXX

(Set) CurrentTheme = ThisWorkBook.Theme (n'existe pas à priori)

Workbooks.Add(1)

With

.Theme=CurrentTheme

[...]

Bien entendu les instructions relatives au thème sont fausses mais c'est ce que je cherche. Je peux appliquer le thème souhaité en allant chercher ce thème dans un répertoire de mon ordinateur mais je cherche vraiment à mettre sous variable le thème de mon classeur en question.

Savez-vous s'il est possible de réaliser une telle instruction ?

Merci d'avance et bonne soirée.

Salut ju1598,

Google est ton ami !

Cela peut-il t'aider ?

https://docs.microsoft.com/en-us/office/vba/api/office.themecolorscheme.colors

A+

Salut,

Merci beaucoup pour ta réponse mais ce n'est pas exactement ce que je recherche. Je ne cherche ni à définir un thème via VBA ni à en appeler un existant dans mon ordinateur. Je cherche vraiment à assigner à une variable le thème actuellement appliqué à mon classeur.

Je n'ai rien trouvé sur le net malgré mes recherches.

Bonne soirée