Gérer les fonctions du ruban par une macro

Résolu
JP-LR Messages postés 49 Statut Membre -  
JP-LR Messages postés 49 Statut Membre -
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.

A voir également:

6 réponses

pilas31 Messages postés 1878 Statut Contributeur 646
 
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,
0
eriiic Messages postés 25847 Statut Contributeur 7 279
 
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
0
JP-LR Messages postés 49 Statut Membre 1
 
Merci à Eric pour son très bon commentaire, je m'en souviendrai.
Merci à Pilas31 pour sa proposition ultrasimple.
Merci infiniment de votre aide.
0
JP-LR Messages postés 49 Statut Membre 1
 
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
eriiic Messages postés 25847 Statut Contributeur 7 279
 
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.
0
JP-LR Messages postés 49 Statut Membre 1
 
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.
0