Bonjour Olivier,
Grace à ta réponse qui m'a mis sur la voie, j'ai remarquer que mon bouton avait un toolipttext "Corriger une erreur". J'ai donc écris ce code :
1 2 3 4 5 6 7 8 9 10 11 12 13
| For Each cb In CommandBars
For j = 1 To 50
Set oldctrl = cb.Controls(j)
If InStr(1, oldctrl.TooltipText, "Corriger", vbTextCompare) Then
aa = oldctrl.TooltipText
bb = cb.Name
cc = cb.Controls.Caption
dd = oldctrl.Name
Stop
oldctrl.Delete
End If
Next j
Next cb |
Il a marché et m'a donné les informations qui m'ont permis d'écrire cette commande :
CommandBars("Menu Bar").Controls(11).Delete
Qui marche aussi.
Est-elle pérenne ou l'indice du bouton (11 ) peut-il changer. Et dans ce cas comment faire (il n'a pas de nom).
Partager