Discussion :

[zoom61]

Salut à tous,

Mon problème est le suivant, je voudrai actualiser la barre d'outil, mais cela ne fonctionne pas, le code que j'utilise est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub menu4()
    Dim cbr As CommandBar
    Dim cbrC As CommandBarControl
    Set cbr = CommandBars("BO").Control("M1").Control("M2")
    Set cbrC = cbr.FindControl(Tag:="CDE", recursive:=True)
    cbrC.Enabled = False
End Sub

Ce que je voudrai c'est que cela désactive la commande "CDE" qui est contenue dans la barre d'outils "BO", dans le menu "M2" qui est lui même dans le menu "M1". J'espère avoir été assez clair dans mes explications.

Merci de votre aide.

[Tofalu]

Bonjour,

Peut être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CommandBars("BO").Controls("M1").Controls("M2").Controls("CDE").Enabled=false

[zoom61]

Un grand merci à toi Tofalu.

Cela fonctionne à merveille.

@ une prochaine.