Activer/Désactiver option barre de menu

Salut
'gfn_ActivDesactivCmB "mnumain", "Imprimer", False, "Alertes entretient..."

Public Function gfn_ActivDesactivCmB _
(sCmb As String, sCmp As String, _
boSens As Boolean, _
Optional sCtr As String = "")
'//-----------------------------------------------------
'// Active ou désactive un control d'un MenuPopUp
'// d'une barre de menu.
'// sCmB : Nom de la Barre de menu.
'// sCmp : Nom du Control PopUp de la barre.
'// sCtr : Non du control à activer/désactiver.
'// boSens : Active ou désactive le control (True/False)
'//
'// Référencez la bibliothèque :
'// Microsoft Office x.0 Object Libary
'//-----------------------------------------------------

On Error GoTo ERR_AcDeCmp

Dim cmdBar As CommandBar
Dim cmdPop As CommandBarPopup

Set cmdBar = CommandBars(sCmb)
Set cmdPop = cmdBar.Controls(sCmp)

If sCtr <> "" Then
'// Active/Désactive le control.
cmdPop.Controls(sCtr).Enabled = boSens
Else
'// Active/Désactive le MenuPopUp.
cmdPop.Enabled = boSens
End If

Set cmdPop = Nothing
Set cmdb = Nothing

SORTIE_AcDeCmp:
Exit Function
ERR_AcDeCmp:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, _
"gfn_ActivDesactivCmB"
Resume SORTIE_AcDeCmp
End Function

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
http://access.jessy.free.fr/
http://www.anor.fr.st
"Guillaume" <gcharniere@yahoo.fr> a écrit dans le message de
news:030d01c35409$4e02efc0$a401280a@phx.gbl...
Bonjour,
Comment peut-on activer ou désactiver les options d'une
barre de menu personnalisée en vba ?

Merci