Discussion :

[Jean-Philippe André]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveProject.setcustomui (strRibbonXML)

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

[Jean-Philippe André]

A toute fin utile, j'ai fait abstraction de ce problème en mettant finalement l'intelligence du code du ruban dans l'Excel, avec un ruban standard et des propriétés GetVisible qui vont tester des existences de feuilles pour renvoyer vrai/faux.

Je laisse la discussion ouverte si quelqu'un a trouvé la solution ^^