Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub CreeMonBouton()
Set bar = Application.CommandBars("Standard")
With bar.Controls.Add(msoControlButton, , , , True)
.Caption = "Calculatrice"
.FaceId = 960
.Tag = 1
'.Style = msoButtonCaption
.OnAction = "L_Start"
End With
Application.CommandBars("Standard").Visible = True
End Sub
Sub L_Start()
Shell "C:\WINDOWS\system32\calc.exe"
End Sub
Private Sub Document_Open()
CreeMonBouton
End Sub