Syntaxe SHOW.TOOLBAR(Ribbon

Bonsoir,

Pour afficher et masquer le ruban, j'utilise le code suivant qui fonctionne:

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" ' masquer

Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" ' afficher

dans ces lignes de code, est-il possible de paramétrer la valeur False/True ?

J'ai essayé le code suivant:

Variable=True

Application..ExecuteExcel4Macro "SHOW.TOOLBAR(""Menu Bar""," & Variable) & ")"

Je n'ai pas de message d'erreur MAIS, cela ne fonctionne pas.

Merci pour votre aide,

Cdt

JMV

Bonjour JMV,

Placer en haut du module

Dim Variable as Boolean
' ......... 
Puis ta macro. Par contre fait
"SHOW.TOOLBAR(""Menu Bar"",Variable)" 

Soit pour Variable = True ou False

Bonne continuation.

Bonsoir,

Un exemple de switch :

Sub RibbonSW()
Dim Y, s
On Error Resume Next
Y = Application.CommandBars.Item("Ribbon").Visible
s = IIf(Y, "False", "True")
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & s & ")"
End Sub

A+

Bonsoir,

merci pour vos suggestions.

La formule de Galopin correspond à ce que je cherchais.

En mettant des guillemets autour de true et false, mon code fonctionne correctement

Merci pour vos réponse,

Cdt

JMV

Bonjour,

Sujet clos, mais !...

Dans la mesure ou CommandBar.visible renvoie un boolean.

Cdlt.

Sub ToggleRibbon()
Dim blnVisible As Boolean
    'On Error Resume Next
    blnVisible = Not Application.CommandBars.Item("Ribbon").Visible
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon""," & blnVisible & ")"
End Sub

Bonjour Jean-Eric,

j'ai chargé ton fichier dans une zone avec macro autorisée.

Quand j'appuie sur le bouton, rien ne se passe.

Idem lorsque je teste pas à pas l’exécution de la macro.

Essai réalisé avec Excel 2007 et Excel 2013.

Cdt,

JMV

Re,

Je vais te rassurer, cela ne fonctionne "plus" chez moi aussi.

J'avais cependant testé avant de poster.

Bon, au moment de la création de la procédure, mon Excel était en anglais et la procédure fonctionnelle.

Passé en français depuis et bug !...

Donc ma proposition n'est pas valide et je m'en excuse.

Cdlt.

OK, pas de souci.

Ce que tu décris correspond au problème que j'avais quand j'ai posté ma demande.

En fait, si on utilise la version Française d' Excel, lorsque l'on écrit:

Var=true

Excel affiche Var= True mais en réalité Var=Vrai

(Si on trace cette variable, avec Excel version Française, Excel affiche la valeur "Vrai")

Par contre, si on déclare la variable

Var="true",

alors cela fonctionne parce que la valeur reste à true.

Cdt

JMV