Afficher le menu "Compléments" à l'ouverture (Par VBA)

Question

J'ai un classeur dans lequel je crée à l'ouverture du classeur l'onglets "Compléments", dans lequel je met un raccourci pour lancer une macro. Je souhaiterai qu'à l'ouverture du classeur, ce menu Compléments soit affiché/activé. Le raccourci clavier est "ALT+M2". J'ai donc le code suivant : Private Sub Workbook_Open() '---Déclaration des variables Dim Barre As CommandBar Dim Menu As CommandBarPopup Dim SousMenu As CommandBarPopup Dim Bouton As CommandBarButton On Error Resume Next '---Création de la barre d'outils Set Barre = Application.CommandBars _ .Add(Name:="Raccourcis", Position:=msoBarTop, Temporary:=True) Barre.Protection = msoBarNoMove + msoBarNoCustomize 'Protection de la barre de menus '---Création d'un menu Set Menu = Barre.Controls.Add(msoControlPopup) With Menu .Caption = "Macros" '&lt;-- label du menu End With '---Ajout d'un bouton dans le menu Set Bouton = Menu.Controls.Add(Type:=msoControlButton) With Bouton .Style = msoButtonIconAndCaption 'Bouton avec icône + texte .FaceId = 2646 'Icône .Caption = "Ajouter Affaire" 'Nom du bouton .TooltipText = "Ajouter une feuille d'affaire" 'Info-bulle .OnAction = "Création_feuille" 'Définit la macro associée au bouton. End With '---Affichage de la barre d'outils Barre.Visible = True '--- Afficher le menu "Compléments" SendKeys "%(M2)" 'Raccourci clavier pour le menu "Compléments" Application.Wait Now + TimeValue("00:00:01") SendKeys "{ESC}" 'Masque l'affichage des touches de raccourcis Application.Wait Now + TimeValue("00:00:01") SendKeys "{ESC}" 'Masque l'affichage des touches de raccourcis End Sub Mais ça ne fonctionne pas, le menu n'est pas activé. Le même code, mais avec SendKeys "%(M1)" (Raccourci pour le menu "Mise en page") marche parfaitement. C'est comme si l'onglet "Compléments" n'était pas encore créé lorsque SendKeys "%(M2)" s'exécute...

lermite · Answer

Le code que tu montre est pour un excel 97-2003 et je vois que tu à la version 2007 ? Avec le 2007 ce sont des rubans et plus des barres d'outils Toujours une mauvaise habitude de mettre un ON Error Resume Next dans une procédure qui ne va pas, tu ne peu pas voir les erreurs. Possible que tu puisse ajouter un bouton dans la seule barre d'outils qui subsiste mais je ne l'ai jamais fais. A+...

lermite · Answer

Re,

Effectivement je n'avais pas bien compris,

Mais ça ne sais pas fonctionner il y a un conflit dans les attributions des raccourcis, comme tu a pu le constater ce sont les raccourcis employer sur Excel2003 or dans le 2003 la lettre M est attribuée justement à la barre complément (ou raccourci si tu veux) mais dans le 2007 le M est attribué au ruban "Mise en forme", tu dis qu'avec M1 ça fonctionne.. oui, mais c'est parce que le 1 est ignorer, essaye avec uniquement la lettre M et tu verras.

Par VBA il n'y a pas moyen de modifier ce raccourci, il faut avoir recourt au XLM. et créer un ruban Perso.

C'est assez ardu mais pas impossible à toi de voir, il y a aussi la possibilité d'afficher un Userform genre barre d'outils avec tes boutons .

A+

Edit : Pour confirmer le conflit des raccourcis, quand tu est dans Excel avec le ruban complément les raccourcis M ou M1 ou M2 ne

fonctionnent plus et un bip (d'erreur) se fait entendre quand tu tape le deuxième caractère.

lermite · Answer

Désolé mais je n'ai probablement pas le même Excel 2007 que toi, quand j'appuie sur le 1 ou le 2 j'ai un Bip et rien n'est sélectionner.

Je passe la main à quelqu'un qui a le même Excel que toi.

A+

lermite · Answer

....... ... et encore ....

Effectivement il y a moyen de sélectionner les rubans MAIS.... AVEC LES TOUCHES DU CLAVIER ALPHANUMÉRIQUE et pas le clavier numérique .....

Je cherche pour trouver le code...

Youppps, j'ai trouvé..

    SendKeys "%(M)"
    SendKeys "2"

C'est pas trop tôt, j'ai passer la journée la dessus.

Mais c'est sans problème, cela m'a permis de connaître u n truc en plus.

A+

lermite · Answer

Et encore...le code ci-dessus fonctionne mais à partir d'un bouton sur une feuille, mais ça ne va pas à l'ouverture du classeur.

MAIS, j'ai trouvé une astuce qui le fait...

'---Affichage de la barre d'outils
    Barre.Visible = True

'--- Afficher le menu "Compléments"
    SendKeys "%(N)"
    SendKeys "%(M),2,{ESC},{ESC}"
End Sub

Va savoir pourquoi ça fonctionne en sélectionnant d'abord un autre ruban, enfin bref, le principal c'est que ça marche.

A+

lermite · Answer

Bizarre, avant de poster la dernière solution j'ai tester plusieurs fois et je n'ai eu aucun raté ?.

Mais tout les tests je les ai fait avec une sub à part, je viens de retester et effectivement avec la simplification il y a des ratés, j'ai donc repris ma précédente solution et je l'ai fait tourner une dizaine de fois sans raté.

Alors j'explique,

En dessous de la procédure Open colle le code ci dessous

Sub Envoyer()
    SendKeys "%(N)"
    SendKeys "%(M),2,{ESC},{ESC}"
End Sub

et bien entendu dans la procédure Open tu modifie en conséquence,

'---Affichage de la barre d'outils
    Barre.Visible = True

'--- Afficher le menu "Compléments"
    Envoyer
End Sub

C'est la bonne...

Pour un autre moyen que SendKey et bien il n'y en a pas.

Seulement comme dis plus haut, en XLM

A+

lermite · Answer

Pas de problème, c'est toi qui vois.

Tu a certainement d'autre évènements qui perturbe le fonctionnement, j'ai tester au moins 30 fois sans aucun accro

Si c'est le cas, essaye encore une fois en mettant

Application.EnableEvents = False en tout début de la procédure

pas oublier de remettre à true après les SendKey

Si la raccourci a été changé dans le 2010 c'est bien que le problème a été détecté.

Note : moi non plus je lâche pas facilement un problème.

A+.

Edit au fur et à mesure des recherches j'ai quand même constaté que sendKey renvoi le code touche sur la fenêtre en cour.

Par exemple si tu met la sub Envoyer dans un module et que tu tape F5 c'est le menu de l'éditeur VBA qui est sélectionné.

Si tu fais la même chose avec F8 c'est le module lui-même qui reçoit le code.