CommandBars --> Comment faire pour ajouter un autre bouton ? par exemple!

[mahamalily]

Bonjour à tous,

Je souhaiterais apprendre davantage sur la propriété CommandBars...

J'ai un code qui créé un onglet supplémentaire dans le ruban qui s'appelle Compléments. Mon code permet d'avoir une barre d'outils personnalisée.

Info ° : le code est un code (élaboré par un collègue) sur lequel je dois retravailler pour problème de compatibilité etc puisqu'il n'est plus là... donc, je ne sais pas comment marche vraiment telle ou telle chose. comme l'histoire de la CommandBars!

Cependant, voici le code :

Sub SuppressionMenu()
    Application.CommandBars("Barre Outils").Visible = True
    For Each cbar In CommandBars
        If cbar.Name <> "Barre Outils" And cbar.Type = 0 Then
            Application.CommandBars(cbar.Name).Visible = False
        End If
    Next
        With Toolbars("Barre Outils")
            .ToolbarButtons(1).OnAction = "RetourHaut"
            .ToolbarButtons(2).OnAction = "DerniereLigne"
            .ToolbarButtons(3).OnAction = "Ajouter"
            .ToolbarButtons(4).OnAction = "Filtrage"
            .ToolbarButtons(5).OnAction = "Impression_etiq_extract"
            .ToolbarButtons(6).OnAction = "Encadrement"
            .ToolbarButtons(7).OnAction = "btnEnleverProtect"
          '  .ToolbarButtons(7).OnAction = "btnRemettreProtect" '--> a voir si possible de l'insérer
            .ToolbarButtons(8).OnAction = "Aide"
        End With
End Sub

Pour l'exécution de ce code, il y a dans la méthode auto_open() : SuppressionMenu .

Alors mon souci est : comment puis je rajouter un bouton sans que ca m'affiche un message d'erreur ??
Et aussi, ce programme est censé d'enlever tout ce qui est déjà dans le ruban mais là, ce n'est pas le cas... Je suppose que c'est plus trop possible de le faire ou quelque chose de ce genre ? ou bien vous auriez une solution... ?!?
Sinon, j'aimerais que ca s'affiche en 1er onglet mais je ne sais pas comment faire...

Merci si vous pouviez m'aider !! Je vous en serais très reconnaissant !

Cordialement,

 

[mahamalily]

Re : CommandBars --> Comment faire pour ajouter un autre bouton ? par exemple!

Re
Plus la peine de me répondre... J'ai trouvé la réponse. Si vous en avez besoin, vous avez qu'à me demander
parce que ce serait un message trop long ...
Cordialement