Bonsoir à toutes & tous,
Je créée un bouton pour y attribuer une macro.
Ca marche impeccable, mais c'est ma procédure pour effacer ce bouton qui ne fonctionne pas.
Du coup à chaque fois que j'ouvre à le classeur j'ai un nouveau bouton qui se créé.
je me retrouve donc avec 2, 3 4 boutons identiques.
Qu'est ce qui cloche ?
Merci d'avance
++
Creepy
Je créée un bouton pour y attribuer une macro.
Ca marche impeccable, mais c'est ma procédure pour effacer ce bouton qui ne fonctionne pas.
Du coup à chaque fois que j'ouvre à le classeur j'ai un nouveau bouton qui se créé.
je me retrouve donc avec 2, 3 4 boutons identiques.
Qu'est ce qui cloche ?
Code:
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
Merci d'avance
++
Creepy