[AC-2010] Définir le code XML du ruban d'un fichier Excel depuis Access

Hello,

je m'attaque à ma bête noire sur l'interaction Access/Excel, les rubans.

J'ai généré à partir de mon VBA Access le contenu XML du ruban qui doit être généré.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim strRibbonXML As String
 
strRibbonXML = strRibbonXML & "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">"
strRibbonXML = strRibbonXML & "<ribbon startFromScratch=""true"">"
strRibbonXML = strRibbonXML & "<tabs>"
strRibbonXML = strRibbonXML & "<tab id = ""Perso"" label=""Test"" insertAfterMso=""TabView"">"
strRibbonXML = strRibbonXML & "<group id=""Menu"" label=""Menu"">"
strRibbonXML = strRibbonXML & ""
strRibbonXML = strRibbonXML & "<button id=""Accueil"" label=""Accueil"" onAction=""Activate_Accueil"" size=""large"" imageMso=""OpenStartPage"" />"
strRibbonXML = strRibbonXML & "<button id=""Serie_S1"" label=""S1"" onAction=""Activate_S1"" size=""large"" imageMso=""MailMergeRecipientsEditList"" />"
strRibbonXML = strRibbonXML & "<button id=""Serie_S2"" label=""S2"" onAction=""Activate_S2"" size=""large"" imageMso=""MailMergeRecipientsEditList"" />"
strRibbonXML = strRibbonXML & "<button id=""Sommaire"" label=""Synthèse"" onAction=""Activate_Sommaire"" size=""large"" imageMso=""GoToHeader"" />"
strRibbonXML = strRibbonXML & "</group>"
strRibbonXML = strRibbonXML & "</tab>"
strRibbonXML = strRibbonXML & "</tabs>"
strRibbonXML = strRibbonXML & "</ribbon>"
strRibbonXML = strRibbonXML & "</customUI>"

Je cherche maintenant à partir de ma variable Workbook voire de mon application XlApp a relier ce code XML au ruban du fichier Excel.

J'avais une piste avec ce qui semble être disponible pour MS PRoject :

Code:

ActiveProject.setcustomui (strRibbonXML)

Le problème c'est que je ne trouve pas l'équivalent sur Excel/Access...
Des idées ?