Gérer les fonctions du ruban par une macro

Bonjour,

Je ne sais pas si cela répond à la question mais pour réduire ou développer le ruban il est possible de simuler l'action sur la touche Ctrl+F1 comme ceci :

SendKeys "^{F1}"

et pour afficher et cacher le bandeau d'information :

Application.DisplayDocumentInformationPanel = True
Application.DisplayDocumentInformationPanel = False

A+
Cordialement,

Bonjour,

commencer par google avant de poser une question est souvent plus rapide :
https://www.google.fr/search?q=vba+ruban&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:fr:official&client=firefox-a

eric

Merci à Eric pour son très bon commentaire, je m'en souviendrai.
Merci à Pilas31 pour sa proposition ultrasimple.
Merci infiniment de votre aide.

J'ai bien pris un peu de temps cette fois pour lire les nombreux articles sur le sujet et j'ai vu qu'il y avait de très nombreuses possibilités de personnaliser le ruban, mais ce n'est pas ce que je veux faire (et en plus, c'est bien compliqué pour moi...)
Je voudrais seulement à partir d'une macro, réduire le ruban un peu comme avec les touches Ctrl-F1 et pour cela, je ne trouve rien sur Google ....

La solution proposée par Pilas31 avec sendKeys est intéressante mais ne répond pas non plus à mon besoin car elle ouvre et ferme alternativement le ruban. Je cherche une macro qui réduise toujours le ruban.
Merci d'avance.

Bonsoir,

La solution proposée par Pilas31 avec sendKeys est intéressante mais ne répond pas non plus à mon besoin car elle ouvre et ferme alternativement le ruban.
Tu peux tester sa hauteur avant avec :
Application.CommandBars("ribbon").Height
Chez moi elle varie de 53 à 141 selon si elle est dépliée ou repliée.

C'est en attendant mieux, parce que le sendkey est assez pénible parfois. Comme quand il décide de déactiver le pavé numérique, ça énerve...

eric

PS: après un peu de recherche j'ai trouvé ça :
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
Mais ça masque aussi le menu et la barre d'outil rapide.

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.

Merci infiniment Eric pour ces explications.
Chez moi, la hauteur varie entre 57 et 145. J'en déduis qu'en faisant un test > 100, je ne devrais pas avoir de problème.
Pour la désactivation du pavé numérique, c'est vrai que ça énerve, mais ce n'est pas toutes les fois.
Pour les macro Excel4, dommage que ça enlève trop de choses. Je vais donc pour le moment en rester à la solution n°1 avec le test de la hauteur.

Merci encore d'aider les béotiens comme moi.