chtibreizh62
Messages postés7Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention16 mai 2007
-
21 juin 2006 à 17:29
chtibreizh62
Messages postés7Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention16 mai 2007
-
28 juin 2006 à 09:36
Je crois qu'alzheimer me guette !
Après un long moment, je me replonge dans le VBA Word et je n'arrive pas à finaliser mon menu. Je souhaiterai avoir un menu popup dans un menu popup.
'-barre de menu Etude impact -------------
With MBarre.Controls.Add(msoControlPopup)
.Caption = "&Importation"
' ---------sous menu 1
.Controls.Add (msoControlButton)
.Controls(1).Caption = "&Importation Globale"
With .Controls(1)
.OnAction = "Importation_Globale"
End With
' ---------sous menu 2
.Controls.Add (msoControlPopup)
.Controls(2).Caption = "Importation &Sélective"
.Controls(2).Add (msoControlButton) ' je souhaiterai ici un menu bouton
' ---------sous menu 3
.Controls.Add (msoControlButton)
.Controls(3).Caption = "&A propos ..."
With .Controls(3)
' .OnAction = "Envoyer_Requete"
End With
End With
Si quelqu'un peut me venir en aide, car là, je suis au bord du gouffre!!
cs_bipou
Messages postés61Date d'inscriptionmercredi 14 janvier 2004StatutMembreDernière intervention14 septembre 2006 22 juin 2006 à 18:50
ce qui suit fonctionne :
Set MBarre = Application.CommandBars.ActiveMenuBar.Controls.Add(msoControlPopup)
MBarre.Caption = "&mon menu"
'-barre de menu Etude impact -------------
With MBarre.Controls.Add(msoControlPopup)
.Caption = "&Importation"
' ---------sous menu 1
.Controls.Add (msoControlButton)
.Controls(1).Caption = "&Importation Globale"
With .Controls(1)
.OnAction = "Importation_Globale"
End With
' ---------sous menu 2
WITH .Controls.Add (msoControlPopup)
.Caption = "Importation &Sélective"
.CONTROLS.Add (msoControlButton) ' je souhaiterai ici un menu bouton
END WITH
' ---------sous menu 3
.Controls.Add (msoControlButton)
.Controls(3).Caption = "&A propos ..."
With .Controls(3)
' .OnAction = "Envoyer_Requete"
End With
chtibreizh62
Messages postés7Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention16 mai 2007 28 juin 2006 à 09:36
Merci pour ton aide bipou.
pour ceux que cela intéresse voici comment mettre les Caption et OnAction sur un contrôle :
With .Controls.Add(msoControlPopup)
.Caption = "Importation &Sélective"
With .Controls.Add(msoControlButton)
.Caption = "essai"
.OnAction = "MonProg"
End With
End With