Sub Auto_Open() CreeMonBouton End Sub Sub 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 End Sub Sub L_Start() Shell "C:\WINDOWS\system32\calc.exe" End Sub
Sub Auto_Open() CreeMonBouton End Sub Sub 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 End Sub Sub L_Start() Shell "C:\WINDOWS\system32\calc.exe" End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question