suppression de boutons dans l'onglet compléments

[mardouk]

Salut à tous!

L'entreprise dans laquelle je suis en stage m'a demandé de leur créer une application pour la gestion des devis.
J'ai donc mis le code suivant dans ThisWorkbookpour ajouter les boutons adéquats dans l'onglet Compléments:

Private Sub Workbook_Open()
Dim cmd As CommandBar
Dim opt As CommandBarControl
strFolder = ThisWorkbook.Path & "\"
Set cmd = Application.CommandBars("Tools")
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=18, Before:=1)
opt.Caption = "Nouveau devis"
opt.OnAction = "Ajout_Devis"
opt.TooltipText = "Permet de créer un nouveau devis"
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=1849, Before:=2)
opt.Caption = "Recherche devis"
opt.OnAction = "Rech_Devis"
opt.TooltipText = "Permet de rechercher un devis"
Set opt = cmd.Controls.Add(Type:=msoControlButton, Before:=3)
opt.Caption = ""
opt.OnAction = ""
opt.Enabled = False
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=18, Before:=1)
opt.Caption = "Nouveau client"
opt.OnAction = "Ajout_Client"
opt.TooltipText = "Permet de créer un nouveau client"
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=1849, Before:=2)
opt.Caption = "Rechercher client"
opt.OnAction = "Rech_Client"
opt.TooltipText = "Permet de rechercher un client"
Set opt = cmd.Controls.Add(Type:=msoControlButton, Before:=3)
opt.Caption = ""
opt.OnAction = ""
opt.Enabled = False
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=18, Before:=1)
opt.Caption = "Nouveau produit"
opt.OnAction = "Ajout_Produit"
opt.TooltipText = "Permet de créer un nouveau produit"
Set opt = cmd.Controls.Add(Type:=msoControlButton, ID:=1849, Before:=2)
opt.Caption = "Rechercher produit"
opt.OnAction = "Rech_Produit"
opt.TooltipText = "Permet de rechercher un produit"
End Sub

Le problème c'est que j'ai fait plusieurs manips pour bien placer mes boutons et que maintenant je me traîne tous les essais que j'ai fait!! C'est à dire que j'ai mes boutons, mais au lieu de se replacer quand j'ai changé mon code, ils se sont succédé! Est ce que quelqu'un saurait comment s'en débarasser?

 

[mardouk]

Re : suppression de boutons dans l'onglet compléments

Personne pour m'aider?

 

[GIBI]

Re : suppression de boutons dans l'onglet compléments

Bonjour,

je pense que si tu fournissais un exemple, cela serait plus facile de t'aider (classeur Excel).

sinon regarde ici Les barres d'outils et menus le delete

il y a un principe de base Faire/défaire ==> ADD/Delete

GIBI