Ruban personnalisé portable VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
¤arthur¤
Membre habitué
Membre habitué
Messages : 148
Appréciations reçues : 2
Inscrit le : 30 octobre 2017
Version d'Excel : 2016

Message par ¤arthur¤ » 23 janvier 2018, 14:11

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
¤arthur¤
Membre habitué
Membre habitué
Messages : 148
Appréciations reçues : 2
Inscrit le : 30 octobre 2017
Version d'Excel : 2016

Message par ¤arthur¤ » 24 janvier 2018, 09:49

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.
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message