Public Sub Creer_Bouton()
Dim ExportPPT_Bouton As CommandBarButton
On Error Resume Next
Set ExportPPT_Bouton = Application.CommandBars('SecoBarre').Controls('Export_PPT')
On Error Resume Next
If Not ExportPPT_Bouton Is Nothing Then Exit Sub
With Application.CommandBars('Standard').Controls.Add(msoControlButton)
.Caption = 'Export vers PPT'
.TooltipText = 'Export des Graphiques Excel vers PPT'
.FaceId = 267
.Style = msoButtonIconAndCaption
.BeginGroup = True
.OnAction = 'Lancer_Userform'
End With
End Sub
Public Sub Kill_Bouton()
Dim ExportPPT_Bouton As CommandBarButton
On Error Resume Next
Set ExportPPT_Bouton = Application.CommandBars('SecoBarre').Controls('Export_PPT')
Application.CommandBars('SecoBarre').Controls('Export_PPT').Delete
End Sub