Workbook.ApplyTheme (Excel)

Cette méthode applique le thème spécifié au classeur actif.

ApplyTheme (Filename)

Filename: Nom du thème.

Dim strFilename As String: strFilename = 
ActiveWorkbook.ApplyTheme Filename:=strFilename