Ruban personnalisé portable VBA

Bonjour,

j'aimerai faire un ruban personnalisé qui s'active et se désactive en fonction de la feuille, le truc est que je n'arrive pas a faire fonctionné un code qui est fonctionnel chez d'autre.

le principe du code est d'assigné a une variable de type string la totalité du fichier exportai créé lors de l'exportation du ruban perso.

Le problème est que je n'arrive pas a "lire" la variable après.

est-ce que quelqun sait comment faire ?

Merci d'avance.

Arthur

code :

    Dim ribbonXml As String

    ribbonXml = "<mso:cmd app=""Excel"" dt=""1"" />"
    ribbonXml = ribbonXml + "<mso:customUI xmlns:x2=""http://schemas.microsoft.com/office/2009/07/customui/macro"" xmlns:x1=""PowerPivotExcelClientAddIn.NativeEntry.1"" xmlns:mso=""http://schemas.microsoft.com/office/2009/07/customui"">"
ribbonXml = ribbonXml + "<mso:ribbon>"
ribbonXml = ribbonXml + "<mso:qat/>"
ribbonXml = ribbonXml + "<mso:tabs>"
ribbonXml = ribbonXml + "<mso:tab id=""mso_c2.32C1D1F"" label=""Suivi commande"" insertAfterQ=""x1:tabPowerPivot"">"
ribbonXml = ribbonXml + "<mso:group id=""mso_c3.32C1D1F"" label=""Recherche"" imageMso=""FilterByResource"" autoScale=""true"">"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Chercher_cde_en_cours_0_32EF759"" label=""Rechercher"" imageMso=""FilterByResource"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Chercher_cde_en_cours"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Cherche_suivant_0_3310FE8"" label=""Suivant"" imageMso=""RightArrow2"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Cherche_suivant"" visible=""true""/>"
ribbonXml = ribbonXml + "</mso:group>"
ribbonXml = ribbonXml + "<mso:group id=""mso_c1.330CB4D"" label=""Modification"" imageMso=""Folder"" autoScale=""true"">"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Modif_cde_CVR_1_334605B"" label=""Modification commande CVR"" imageMso=""InkEraseMode"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Modif_cde_CVR"" visible=""true""/>"
ribbonXml = ribbonXml + "</mso:group>"
ribbonXml = ribbonXml + "<mso:group id=""mso_c1.334EB26"" label=""Impression"" imageMso=""FilePrint"" autoScale=""true"">"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Impression_cde_CVR_0_334605B"" label=""Impression commande CVR"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Impression_cde_CVR"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Cde_des_VR_lot_0_3AA466C"" label=""Impression ordre livraison (n°lot)"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Cde_des_VR_lot"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Cde_des_VR_cde_0_3ADF52C"" label=""Impression ordre livraison (n° commande)"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Cde_des_VR_cde"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module2.Impr_planning_jour_0_336472C"" label=""Impression du planning par jour"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module2.Impr_planning_jour"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Impr_du_Planning_1_336472C"" label=""Impression du planning complet"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Impr_du_Planning"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Imp_CVR_Livraison_0_337F653"" label=""Impression CVR livraison "" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Imp_CVR_Livraison"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module2.Cond_exp_0_33A4BAD"" label=""Impression commande soldées"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module2.Cond_exp"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Visu_NC_1_337F653"" label=""Visuel"" imageMso=""InsertDrawingCanvas"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Visu_NC"" visible=""true""/>"
ribbonXml = ribbonXml + "</mso:group>"
ribbonXml = ribbonXml + "<mso:group id=""mso_c1.36BDD21"" label=""Autre"" autoScale=""true"">"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module2.tri_4_36F3E5D"" label=""Tri"" imageMso=""FilterToggleFilter"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module2.tri"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module2.Delai_a_suivre_1_36F3E5D"" label=""Délais à suivre"" imageMso=""ListMacros"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module2.Delai_a_suivre"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module2.Cond_exp_2_36F3E5D"" label=""Cond exp"" imageMso=""ListMacros"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module2.Cond_exp"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Blocage_finacier_0_36F3E5D"" label=""blocage financier"" imageMso=""SetPertWeights"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Blocage_finacier"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Déblocage_finacier_3_36F3E5D"" label=""Déblocage financier"" imageMso=""StartAfterPrevious"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Déblocage_finacier"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module1.Listing_Cdt_5_36F3E5D"" label=""Listing cdt"" imageMso=""FileNew"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module1.Listing_Cdt"" visible=""true""/>"
ribbonXml = ribbonXml + "<mso:button idQ=""x2:C:_Users_A1891461_Desktop_2018_Suivi_cde_2018.xlsm_Module2.Impression_fiche_de_suivi_6_36F3E5D"" label=""Impression fiche de suivi"" imageMso=""FilePrint"" onAction=""C:\Users\A1891461\Desktop\2018\Suivi cde 2018.xlsm!Module2.Impression_fiche_de_suivi"" visible=""true""/>"
ribbonXml = ribbonXml + "</mso:group>"
ribbonXml = ribbonXml + "</mso:tab>"
ribbonXml = ribbonXml + "</mso:tabs>"
ribbonXml = ribbonXml + "</mso:ribbon>"
ribbonXml = ribbonXml + "</mso:customUI>"

    ActiveProject.SetCustomUI (ribbonXml)

lors de l'execution du programme l'erreur "Objet requis " apparaît mais cette erreur est trop vaste

Je tien au courant,

je suis passer sur une autre méthode mais j'ai un autre probleme.

Cette fois ci j'ai ce que je veut(presque), le raccourci dans complément avec le nom et l'image MAIS l'image est trop petite et je n'arrive pas a l'agrandire quelqu'un saurait comment faire ?

Merci d'avance.

Rechercher des sujets similaires à "ruban personnalise portable vba"