Re bonne nuit et puis tant que j'y suis bonjour!!!
Je crois que j'ai pigé...En fait la macro appelée possède un caractère optional (w)...
Si on appelle cache_outils 0 je pense que (w) prendra la valeur 0 et les "onglets" de la barre de menu seront invisibles.
Si on appelle cache_outils 1, (w) prendra la valeur 1 et les "onglets" de la barre de menu seront visibles.
Désolé une fois de plus de vous avoir fait mouliner pour rien....
Sorry, Sorry, Sorry, et @+
'-------------------------------------------
' outils de bar invisible
'-------------------------------------------
Private Sub cache_outils(Optional w)
control_view "Worksheet Menu Bar", "Affichage", w
control_view "Worksheet Menu Bar", "Insertion", w
control_view "Worksheet Menu Bar", "Format", w
control_view "Worksheet Menu Bar", "Outils", w
control_view "Worksheet Menu Bar", "Données", w
control_view "Worksheet Menu Bar", "Fenêtre", w
End Sub
Private Sub control_view(bar, control, Optional w)
Dim x As Object
Set x = Application.CommandBars(bar).Controls(control)
If IsMissing(w) Then
x.Visible = Not (x.Visible)
Else
x.Visible = w
End If
End Sub