Menu contextuel

bonjour CDSNC,

sélectionne au menu, Affichage, Barre d'outils, Personnalisé, onglet
commandes
catégorie : Fichier
commandes : sélectionner "Enregistrer" et tenir enfoncé, fait glissé à
l'endroit désiré.
click droit sur cette novelle commande pour modifier (texte et image du
bouton).

isabelle

Bonjour,

Est-il possible de modifier le menu contextuel afin d'ajouter la commande
"enregistrer" ?
Si oui comment.
Merci d'avance pour votre aide.

commandes : sélectionner "Enregistrer" et tenir enfoncé, fait glissé à
l'endroit désiré.

L'endroit désiré est le menu contextuel (menu obtenu en faisant un click
droit) je ne vois pas vers ou faire glisser, pour obtenir le résultat
souhaité par CDSNC.

Bonjour,

Est-il possible de modifier le menu contextuel afin d'ajouter la
commande "enregistrer" ?
Si oui comment.
Merci d'avance pour votre aide.

Bonsoir
http://dj.joss.free.fr/outil.htm

Voir " Création d'un menu contextuel (Click droit)"


--
Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm





"CDSNC" <cdsncNOSPAM@fr.inter.net> a écrit dans le message de news:
uth6CTWTEHA.3016@tk2msftngp13.phx.gbl...
| Bonjour,
|
| Est-il possible de modifier le menu contextuel afin d'ajouter la commande
| "enregistrer" ?
| Si oui comment.
| Merci d'avance pour votre aide.
|
|

le menu obtenue avec le click droit est CommandBars("Cell")

exemple pour ajouter la calculette

Sub BoutonPerso()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub

Sub Calculette()
RetVal = Shell("C:WINNTsystem32CALC.EXE", 1)
End Sub

'pour rétablir CommandBars("Cell")
Sub ResetCommandBar()
Application.CommandBars("Cell").Reset
End Sub

isabelle

commandes : sélectionner "Enregistrer" et tenir enfoncé, fait glissé à
l'endroit désiré.

L'endroit désiré est le menu contextuel (menu obtenu en faisant un click
droit) je ne vois pas vers ou faire glisser, pour obtenir le résultat
souhaité par CDSNC.

Bonjour,

Est-il possible de modifier le menu contextuel afin d'ajouter la
commande "enregistrer" ?
Si oui comment.
Merci d'avance pour votre aide.

Merci Isabelle, mais pourrais-tu me donner l'exemple pour ajouter la
commande "Enregisrer"



isabelle wrote:

le menu obtenue avec le click droit est CommandBars("Cell")

exemple pour ajouter la calculette

Sub BoutonPerso()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub

Sub Calculette()
RetVal = Shell("C:WINNTsystem32CALC.EXE", 1)
End Sub

'pour rétablir CommandBars("Cell")
Sub ResetCommandBar()
Application.CommandBars("Cell").Reset
End Sub

isabelle

commandes : sélectionner "Enregistrer" et tenir enfoncé, fait
glissé à l'endroit désiré.

L'endroit désiré est le menu contextuel (menu obtenu en faisant un
click droit) je ne vois pas vers ou faire glisser, pour obtenir le
résultat souhaité par CDSNC.

Bonjour,

Est-il possible de modifier le menu contextuel afin d'ajouter la
commande "enregistrer" ?
Si oui comment.
Merci d'avance pour votre aide.

voilà,

Sub BoutonPerso()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Enregistrer"
.BeginGroup = True
.FaceId = 3
.OnAction = "Enregistrer"
End With
End Sub

Sub Enregistrer()
ActiveWorkbook.Save
End Sub

isabelle

Merci Isabelle, mais pourrais-tu me donner l'exemple pour ajouter la
commande "Enregisrer"

isabelle wrote:

le menu obtenue avec le click droit est CommandBars("Cell")

exemple pour ajouter la calculette

Sub BoutonPerso()
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Calculatice"
.BeginGroup = True
.FaceId = 252
.OnAction = "Calculette"
End With
End Sub

Sub Calculette()
RetVal = Shell("C:WINNTsystem32CALC.EXE", 1)
End Sub

'pour rétablir CommandBars("Cell")
Sub ResetCommandBar()
Application.CommandBars("Cell").Reset
End Sub

isabelle

commandes : sélectionner "Enregistrer" et tenir enfoncé, fait
glissé à l'endroit désiré.

L'endroit désiré est le menu contextuel (menu obtenu en faisant un
click droit) je ne vois pas vers ou faire glisser, pour obtenir le
résultat souhaité par CDSNC.

Bonjour,

Est-il possible de modifier le menu contextuel afin d'ajouter la
commande "enregistrer" ?
Si oui comment.
Merci d'avance pour votre aide.