Ajout menu dans Excel

Bonjour,

J'aimerai savoir s'il est possible d'ajouter un bouton de menu dans un fichier excel,
j'aimerai positionner ce bouton dans la barre située en haut de la fenètre, celle ou il y a "Fichier" "Edition" "Affichage" "Insertion" ...

Si c'est réalisable, pouvez vous m'aider a réaliser ce que je cherche, sachant que ce que je veux mettre dans mon menu sont des macros

Merci beaucoup par avance

Aurore

Jète un oeil ici, tu trouveras peut-être ton bonheur ;)

Merci ouskel'n'or, ta réponse m'a beaucoup aidé, MAIS...

(Ba oui j'ai toujours un mais moi :roll:)

J'ai fait exécuter l'apparition de ce menu a l'ouverture du fichier, mais si je ferme et que je réouvre le fichier, mon menu s'affiche 2 fois, 3 fois si je le réouvre encore une fois.

Il faudrait que je puisse enlever le menu a la fermeture du fichier mais je ne connais pas le code pour enlever le menu

Citation:

---

Envoyé par a.dequidt

J'ai fait exécuter l'apparition de ce menu a l'ouverture du fichier, mais si je ferme et que je réouvre le fichier, mon menu s'affiche 2 fois, 3 fois si je le réouvre encore une fois.

---

Oui, c'est pourquoi, si tu as bien lu... il y a la méthode pour supprimer le menu à la fermeture du fichier ;)

:arf: Je crois que j'ai de la mer** dans les yeux :s

J'ai mis comme nom a mon menu "Aide"

et j'ai ajouter

Code:

---

Application.CommandBars("Aide").Delete

---

, dans mon beforeclose

Mais un message d'erreur s'affiche:

Citation:

---

Arguement ou appel de procédure incorrect

---

:aie::aie::aie:

Ok, alors mets-nous le code que tu as utilisé pour créer ta barre d'outils, ça vient peut-être de là... s'il s'agit d'un menu et non d'une barre d'outils (???)
A+

Oupsss Non en fait c'est bon j'ai trouver :oops:

Code:

---

Application.CommandBars("Worksheet Menu Bar").Controls(Application.CommandBars("Worksheet Menu Bar").Controls.Count).Delete

---

RESOLUUUUUU :yaisse2:

AU SECOUUURRRRSSSSSS :help::help::help::help::help:

J'ai fais des bétises, en voulant quitter mais en faisant annuler, le menu s'efface mais si je refais cette manip, les autres menus s'effacent tour à tour,

je me retrouve maintenant avec 5 menus sous Excel au lieu de 9

:'(:'(:'(:'( je vais me faire tuer par mon patron!

J'ai pensé a un systeme qui pourrais améliorer le truc, vérifier si il existe le menu "Aide" dans la barre de menu, mais ch'ai po faire :mur:

Bonjour a.dequidt,

Vous faites un clic droit sur la barre de Menus puis "Personnaliser" puis onglet "Options" et vous cliquez sur "Réinitialiser les menus".

Dans la macro pour quitter Excel par exemple:

Code:

---

Application.CommandBars("Worksheet Menu Bar").Controls(10).Delete

---

ça ne m'a pas réinistialiser les menus :'(

Autant pour moi.
Vous faites un clic droit sur la barre de Menus puis "Personnaliser" puis onglet "Commandes" et vous cliquez sur "Menus prédéfinis" à gauche.

Ensuite à droite cliquez sur le menu manquant puis vous le glissez dans la barre de menus à l'endroit où il se trouvait à l'origine.

Et pour appeller un userform ? :oops:


Aurore

Deus solutions :
- si tu as un chargement important de données

Code:

---

1 2 3

Load Userform1 DoEvents Userform1.show

---

ou sinon il suffit de mettre

Code:

---

Userform1.show

---

C'est réglé ton pb de menus ?
A+