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?