Discussion :

[a.dequidt]

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

[ouskel'n'or]

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

[a.dequidt]

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

(Ba oui j'ai toujours un mais moi )

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

[ouskel'n'or]

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

[a.dequidt]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("Aide").Delete

, dans mon beforeclose

Mais un message d'erreur s'affiche:

Arguement ou appel de procédure incorrect

[ouskel'n'or]

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+

[a.dequidt]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

RESOLUUUUUU

[a.dequidt]

AU SECOUUURRRRSSSSSS

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a.dequidt]

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

[Invité]

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.

[a.dequidt]

Et pour appeller un userform ?


Aurore

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Load Userform1
DoEvents 
Userform1.show

ou sinon il suffit de mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Userform1.show

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