Bonjour
Quelqu'un saurait pourquoi ce code ne fonctionne pas ? (Masquer ou rendre visible le ruban, alternativement) - D'avance un big merci ;-) Cordialement les bienfaiteurs !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande0_Click()
Dim blnRibbon As Boolean
 
If blnRibbon = True Then
DoCmd.ShowToolbar "Ribbon", acToolbarNo
blnRibbon = False
 
Else
DoCmd.ShowToolbar "Ribbon", acToolbarYes
blnRibbon = True
 
End If
 
 
End Sub
Merci par avance