Merci d'avoir ré^pondu.
La biblio Microsoft Office 14.0 Object Library était déjà cochée et comme je le précisais, j'ai abandonné l'idée de la CommandBar, au profit du ruban mais ....
Je n'ai pas d'éditeur xml (mon univers informatique est totalement verrouillé) aussi ai-je choisi pour le moment de créer un ruban dans le code VBA.
Le dit code :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Public Sub Installation_Ruban()
Dim strXML As String
strXML = "<mso:cmd app=""Excel"" dt=""1"" />"
strXML = strXML + "<mso:customUI xmlns:x1=""http://schemas.microsoft.com/office/2009/07/customui/macro"" xlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
strXML = strXML + "<mso:ribbon>"
strXML = strXML + " <mso:qat/>"
strXML = strXML + "<mso:tabs>"
strXML = strXML + "<mso:tab idQ=""mso:TabAddIns"" visible=""false""/>"
strXML = strXML + "<mso:tab id=""mso_c3.C04977D"" label=""TDSU"">"
du code XML
encore du code XML
plein de code XML
strXML = strXML + "</mso:group>"
strXML = strXML + "</mso:tab>"
strXML = strXML + "<mso:tab idQ=""mso:TabBackgroundRemoval"" visible=""false""/>"
strXML = strXML + "</mso:tabs>"
strXML = strXML + "</mso:ribbon>"
strXML = strXML + "</mso:customUI>"
'Charge le rubban personnalisé correspondant
Application.LoadCustomUI "TDSU", strXML
End Sub |
Le message survient lors du
Application.LoadCustomUI "TDSU", strXML
et comme l'aide de mon éditeur ne me propose pas la méthode LoadCustomUI pour l'objet Application, je pensais qu'il s'agissait de l'absence d'une librairie mais je me gourre peut-être ....
Partager