Bonjour,
Je voudrais créer dans le menu "compléments" des sous menu qui s'affiche cote à cote. Mon problème est que je n'arrive qu'a les mettre à la suite.
Quelqu'un aurait-il une solution ?
Voici mon code avec mes 2 menus:
Sub AjouterNouveauMenu1()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
'Supprimer le menu s'il existe déjà
Call DeleteMenu1
'Obtenir l'index du menu Fichier
HelpIndex = CommandBars(1).Controls("Fichier").Index
'Créer le menu
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=HelpIndex, Temporary:=True)
'Ajouter une légende
NewMenu.Caption = "Devis1"
'Premier élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Imprimer Selection"
.FaceId = 4
.OnAction = "Macro2"
End With
'Deuxième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Quitter"
.FaceId = 747
.OnAction = "Quitter1"
End With
'Troisième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Enregistrer en .CSV"
.FaceId = 3
.OnAction = "Lienscsv"
End With
'Quatrième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Ouvrir la Bibliothèque"
.FaceId = 1661
.OnAction = "Ouvrirbiliotheque"
End With
End Sub
Sub AjouterNouveauMenu2()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
'Supprimer le menu s'il existe déjà
Call DeleteMenu2
'Obtenir l'index du menu Fichier
HelpIndex = CommandBars(1).Controls("Fichier").Index
'Créer le menu
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=HelpIndex, Temporary:=True)
'Ajouter une légende
NewMenu.Caption = "Devis2"
'Premier élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Imprimer Selection"
.FaceId = 4
.OnAction = "Macro2"
End With
'Deuxième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Quitter"
.FaceId = 747
.OnAction = "Quitter1"
End With
'Troisième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Enregistrer en .CSV"
.FaceId = 3
.OnAction = "Lienscsv"
End With
'Quatrième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Ouvrir la Bibliothèque"
.FaceId = 1661
.OnAction = "Ouvrirbiliotheque"
End With
End Sub
D'avance merci pour vos réponse.
Je voudrais créer dans le menu "compléments" des sous menu qui s'affiche cote à cote. Mon problème est que je n'arrive qu'a les mettre à la suite.
Quelqu'un aurait-il une solution ?
Voici mon code avec mes 2 menus:
Sub AjouterNouveauMenu1()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
'Supprimer le menu s'il existe déjà
Call DeleteMenu1
'Obtenir l'index du menu Fichier
HelpIndex = CommandBars(1).Controls("Fichier").Index
'Créer le menu
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=HelpIndex, Temporary:=True)
'Ajouter une légende
NewMenu.Caption = "Devis1"
'Premier élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Imprimer Selection"
.FaceId = 4
.OnAction = "Macro2"
End With
'Deuxième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Quitter"
.FaceId = 747
.OnAction = "Quitter1"
End With
'Troisième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Enregistrer en .CSV"
.FaceId = 3
.OnAction = "Lienscsv"
End With
'Quatrième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Ouvrir la Bibliothèque"
.FaceId = 1661
.OnAction = "Ouvrirbiliotheque"
End With
End Sub
Sub AjouterNouveauMenu2()
Dim HelpIndex As Integer
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
'Supprimer le menu s'il existe déjà
Call DeleteMenu2
'Obtenir l'index du menu Fichier
HelpIndex = CommandBars(1).Controls("Fichier").Index
'Créer le menu
Set NewMenu = CommandBars(1).Controls.Add _
(Type:=msoControlPopup, _
Before:=HelpIndex, Temporary:=True)
'Ajouter une légende
NewMenu.Caption = "Devis2"
'Premier élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Imprimer Selection"
.FaceId = 4
.OnAction = "Macro2"
End With
'Deuxième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Quitter"
.FaceId = 747
.OnAction = "Quitter1"
End With
'Troisième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Enregistrer en .CSV"
.FaceId = 3
.OnAction = "Lienscsv"
End With
'Quatrième élément de menu
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "&Ouvrir la Bibliothèque"
.FaceId = 1661
.OnAction = "Ouvrirbiliotheque"
End With
End Sub
D'avance merci pour vos réponse.