Appel macro avec argument à partir d'un menu popup

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les onglets
existants dans le classeur actif, lorsque l'on clique sur le nom d'une
feuille de calcul ds le menu, cela lance une macro qui sélectionne la
feuille en question...du moins c'est censé le faire, mais je rencontre
un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain = Application.CommandBars(1).Controls.Add(msoControlPopup,
1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien, soit
il me faire une erreur à l'appel, soit il reste inerte...bref, si qqun
entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Salut,
voir l'exemple
http://www.ilyapa.net/excel/commandBarFeuilles.zip
génère automatiquement un barre de menu
à adapter
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"aXee" <axee@free.fr> a écrit dans le message de news:
69ca1365.0401020113.273b786b@posting.google.com...

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les onglets
existants dans le classeur actif, lorsque l'on clique sur le nom d'une
feuille de calcul ds le menu, cela lance une macro qui sélectionne la
feuille en question...du moins c'est censé le faire, mais je rencontre
un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain = Application.CommandBars(1).Controls.Add(msoControlPopup,
1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien, soit
il me faire une erreur à l'appel, soit il reste inerte...bref, si qqun
entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Salut,
voir l'exemple
http://www.ilyapa.net/excel/commandBarFeuilles.zip
génère automatiquement un barre de menu
à adapter

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les
onglets existants dans le classeur actif, lorsque l'on clique sur le
nom d'une feuille de calcul ds le menu, cela lance une macro qui
sélectionne la feuille en question...du moins c'est censé le faire,
mais je rencontre un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain >> Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien,
soit il me faire une erreur à l'appel, soit il reste inerte...bref,
si qqun entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les onglets
existants dans le classeur actif, lorsque l'on clique sur le nom d'une
feuille de calcul ds le menu, cela lance une macro qui sélectionne la
feuille en question...du moins c'est censé le faire, mais je rencontre
un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain = Application.CommandBars(1).Controls.Add(msoControlPopup,
1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien, soit
il me faire une erreur à l'appel, soit il reste inerte...bref, si qqun
entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Bonjour Pascal

Désolé, sous WinXP et Excel2002 , cette procédure engendre une erreur à la
ligne

Set monModule = Wb.VBProject.VBComponents(nomModule).codeModule

Tout juste téléchargé du site
Qu'est-ce que je ne fais pas ?

--
Salut
Michel ---- ;o)

Pascal Engelmajer wrote:

Salut,
voir l'exemple
http://www.ilyapa.net/excel/commandBarFeuilles.zip
génère automatiquement un barre de menu
à adapter

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les
onglets existants dans le classeur actif, lorsque l'on clique sur le
nom d'une feuille de calcul ds le menu, cela lance une macro qui
sélectionne la feuille en question...du moins c'est censé le faire,
mais je rencontre un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain > >> Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien,
soit il me faire une erreur à l'appel, soit il reste inerte...bref,
si qqun entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Bonjour Pascal

Désolé, sous WinXP et Excel2002 , cette procédure engendre une erreur à la
ligne

Set monModule = Wb.VBProject.VBComponents(nomModule).codeModule

Tout juste téléchargé du site
Qu'est-ce que je ne fais pas ?

--
Salut
Michel ---- ;o)

Pascal Engelmajer wrote:

Salut,
voir l'exemple
http://www.ilyapa.net/excel/commandBarFeuilles.zip
génère automatiquement un barre de menu
à adapter

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les
onglets existants dans le classeur actif, lorsque l'on clique sur le
nom d'une feuille de calcul ds le menu, cela lance une macro qui
sélectionne la feuille en question...du moins c'est censé le faire,
mais je rencontre un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain > >> Application.CommandBars(1).Controls.Add(msoControlPopup, 1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien,
soit il me faire une erreur à l'appel, soit il reste inerte...bref,
si qqun entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Salut aXee
Essaie avec:
"'NomDeLaMacro""" & "Arg""'"
(Guillemet / apostrophe / Nom de la macro à exécuter / 3 guillemets et
l'argument en cadré par des guillemets suivi d'une apostrophe encadrée par
des guillemets).
MP

"aXee" <axee@free.fr> a écrit dans le message de
news:69ca1365.0401020113.273b786b@posting.google.com...

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les onglets
existants dans le classeur actif, lorsque l'on clique sur le nom d'une
feuille de calcul ds le menu, cela lance une macro qui sélectionne la
feuille en question...du moins c'est censé le faire, mais je rencontre
un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain = Application.CommandBars(1).Controls.Add(msoControlPopup,
1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien, soit
il me faire une erreur à l'appel, soit il reste inerte...bref, si qqun
entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

.OnAction = "'gotosheet""" & "fll.Name" & "'" devrait suffir.
MP

"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de
news:ec95HVS0DHA.2324@TK2MSFTNGP09.phx.gbl...

Salut aXee
Essaie avec:
"'NomDeLaMacro""" & "Arg""'"
(Guillemet / apostrophe / Nom de la macro à exécuter / 3 guillemets et
l'argument en cadré par des guillemets suivi d'une apostrophe encadrée
par

des guillemets).
MP

"aXee" <axee@free.fr> a écrit dans le message de
news:69ca1365.0401020113.273b786b@posting.google.com...

Bonjour à tous,
Bonne Année pour commencer :)

J'essaye veinement de réaliser qqchose qui me semblait facile au
début...je crée un petit menu (sommaire) qui reprends tous les onglets
existants dans le classeur actif, lorsque l'on clique sur le nom d'une
feuille de calcul ds le menu, cela lance une macro qui sélectionne la
feuille en question...du moins c'est censé le faire, mais je rencontre
un soucis.

Voici la partie de mon code qui pose pb :

Sub auto_open()

Dim fll As Worksheet
Dim mMain As CommandBarPopup, mSub As CommandBarPopup

Call DeleteSommaireMenu

Set mMain Application.CommandBars(1).Controls.Add(msoControlPopup,
1, , , True)
With mMain
.Caption = "&Sommaire"
.Tag = "SommaireMenu"
End With

For Each fll In Worksheets
With mMain.Controls.Add(Type:=msoControlButton,
Temporary:=True)
.Caption = fll.Name
.OnAction = "gotosheet(" & fll.Name & ")"
.
End With
Next

Set mSub = Nothing
Set mMain = Nothing
End Sub

la procedure gotosheet contient seulement un sheets.select(argument)

Le pb est simple, le OnAction m'empêche de faire un passage de
paramètre ( j'ai essayé avec double cote, simple cote, sans rien, soit
il me faire une erreur à l'appel, soit il reste inerte...bref, si qqun
entrevoit une petite astuce pour contourner cet obstacle :)

Merci d'avance pour vos conseils ^^

Salut aXee
Essaie avec:
"'NomDeLaMacro""" & "Arg""'"
(Guillemet / apostrophe / Nom de la macro à exécuter / 3 guillemets et
l'argument en cadré par des guillemets suivi d'une apostrophe encadrée par
des guillemets).
MP