Gérer les fonctions du ruban par une macro Résolu/Fermé

Question

Bonjour, 
je ne parviens pas à trouver, comment, dans Excel 2010, gérer les fonctions du ruban telles que réduire ou développer le ruban, afficher le bandeau des propriétés du document. 
NB, pour ces commandes, le mode apprentissage crée bien une macro, mais celle-ci reste désespérément vide ! 

Merci de votre aide. 

Configuration: Windows 7 / Firefox 14.0.1

pilas31 · Answer

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,

eriiic · Answer

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

JP-LR · Answer

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

JP-LR · Answer

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.

eriiic · Answer

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.

JP-LR · Answer

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.

Gérer les fonctions du ruban par une macro

6 réponses

Discussions similaires