Ajouter des boutons dans l'onglet Compléments du Ruban

[libellule85]

Bonsoir le forum,

Après maintes recherches vaines, je me tourne vers vous pour essayé de résoudre mon petit problème.
Voilà, je voudrais rajouter des boutons dans l'onglet Compléments du Ruban en utilisant Custom UI Editor. Je sais faire pour créer un nouvel onglet et mettre des boutons à l'intérieur mais pas pour compléter l'onglet Compléments.
Merci beaucoup pour votre aide

 

[libellule85]

Re : Ajouter des boutons dans l'onglet Compléments du Ruban

Personne pour me renseigner ?

 

[MJ13]

Re : Ajouter des boutons dans l'onglet Compléments du Ruban

Bonjour Libellule.

Il me semble qu'on ne peut pas, les compléments servent pour la compatibilté avec les anciennes barres d'outils.

 

[libellule85]

Re : Ajouter des boutons dans l'onglet Compléments du Ruban

Bonjour MJ13,

Merci pour ta réponse
Bonne journée

 

[BOISGONTIER]

Re : Ajouter des boutons dans l'onglet Compléments du Ruban

Bonjour,

En VBA

Sub CreeBouton()
   Dim barre As CommandBar
   Dim bouton As CommandBarControl
   On Error Resume Next
   Set barre = CommandBars.Add(Name:="BarreBoutons")
   barre.Visible = True

   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
   bouton.Style = msoButtonIconAndCaption
   bouton.TooltipText = "xxx"
   bouton.OnAction = "Macro1"
   bouton.Caption = "Macro1"
   
   Set bouton = CommandBars("BarreBoutons").Controls.Add(Type:=msoControlButton)
   bouton.Style = msoButtonIconAndCaption
   bouton.TooltipText = "xxx"
   bouton.OnAction = "Macro2"
   bouton.Caption = "Macro2"
End Sub

Sub macro1()
  MsgBox "macro1"
End Sub

Sub macro2()
  MsgBox "macro2"
End Sub

Les barres d'outils et menus

JB

 

[libellule85]

[Résolu] Ajouter des boutons dans l'onglet Compléments du Ruban

Bonjour Boisgontier,

Une nouvelle fois tu es mon sauveur ! Merci infiniment pour ta réponse, c'est super.
Bonne journée