Bouton dans menu

Bonjour

On m'a fourni ce code pour déclencher une macro

Je souhaiterais qu'elle se trouve dans le ruban de excel 2010

Voici le code sur ThisWorbooks

Private Sub Workbook_Open()
Dim BtnC As CommandBarButton

    On Error Resume Next
    Set BtnC = Application.CommandBars("Cell").Controls("deplacer")
    On Error GoTo 0
    If BtnC Is Nothing Then
        With Application.CommandBars("Cell").Controls.Add(msoControlButton, , , , True)
           .Caption = "deplacer"
           .BeginGroup = True
           .FaceId = 50
            .Style = msoButtonIconAndCaption
           .OnAction = "Remplir"
        End With
    End If
    BoutBO True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    If Me.Saved = False Then Me.Save
    Application.CommandBars("Cell").Controls("deplacer").Delete
    On Error GoTo 0
    BoutBO False
    Application.StatusBar = False
End Sub

En module 2

Sub BoutBO(Affich As Boolean)
Dim BtnB As CommandBarButton
    If Affich Then
        On Error Resume Next
        Set BtnB = Application.CommandBars("Standard").Controls("deplacer")
        On Error GoTo 0
        If Not BtnB Is Nothing Then Exit Sub
        With Application.CommandBars("Standard").Controls.Add(msoControlButton, , , , True)
            .Caption = "deplacer"
            .BeginGroup = True
            .TooltipText = "Aide au changement de format"
            .FaceId = 50
            .Style = msoButtonIconAndCaption
            .OnAction = "Remplir"
        End With
    Else
        On Error Resume Next
        Application.CommandBars("Standard").Controls("deplacer").Delete
        On Error GoTo 0
    End If
End Sub

Comment mettre le bouton déplacer sur le ruban

Merci beaucoup

Cdt

bonjour,

Private Sub Workbook_Open()
On Error Resume Next
Application.CommandBars("Perso").Delete
Set Perso = Application.CommandBars.Add("Perso", , True)
With Perso.Controls.Add(msoControlButton, , , , True)
   .Caption = "Déplacer"
   .BeginGroup = True
   .TooltipText = "Aide au changement de format"
   .FaceId = 50
    .Style = msoButtonIconAndCaption
   .OnAction = "Remplir"
End With
Application.CommandBars("Perso").Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Perso").Delete
Application.StatusBar = False
End Sub

Les commandes générés par cette méthode sont dans l'onglet "Complément"

A+