bqtr
XLDnaute Accro
Bonjour à tous,
Je viens de passer sous Excel 2007 et j'ai déjà des problèmes .
Sur mon fichier fait avec Excel 2003 tout est nickel mais avec Excel 2007 je n'arrive pas à récuper la zone de liste de ma barre de menu.
La nouvelle barre se place bien dans l'onglet "Complément", les deux boutons sont là mais pas la zone de liste qui me sert pour séléctionner les mois et ouvrir un USF.
Sur le forum je ne trouve rien qui traite de ce problème.
Pour l'instant le langage XML c'est du chinois pour moi et programmer une nouvelle barre dans le ruban n'est pas dans mes cordes.
Donc en attendant de m'y mettre (grâce aux tutos de MichelXLD) je sollicite votre aide pour essayer de résoudre ce problème.
Comment faire pour afficher une zone de liste dans une barre de menu créée avec Excel 2003 sous Excel 2007 ?
Voici le code qui crée la barre sous Excel 2003 :
Merci à tous ceux qui prendront le temps de lire ceci (un peu long je sais ) et qui j'espère pourront m'aider.
Bonne fin de nuit.
Je viens de passer sous Excel 2007 et j'ai déjà des problèmes .
Sur mon fichier fait avec Excel 2003 tout est nickel mais avec Excel 2007 je n'arrive pas à récuper la zone de liste de ma barre de menu.
La nouvelle barre se place bien dans l'onglet "Complément", les deux boutons sont là mais pas la zone de liste qui me sert pour séléctionner les mois et ouvrir un USF.
Sur le forum je ne trouve rien qui traite de ce problème.
Pour l'instant le langage XML c'est du chinois pour moi et programmer une nouvelle barre dans le ruban n'est pas dans mes cordes.
Donc en attendant de m'y mettre (grâce aux tutos de MichelXLD) je sollicite votre aide pour essayer de résoudre ce problème.
Comment faire pour afficher une zone de liste dans une barre de menu créée avec Excel 2003 sous Excel 2007 ?
Voici le code qui crée la barre sous Excel 2003 :
Code:
Sub barre()
Dim aide As CommandBarControl
Dim Mabarre As CommandBarPopup
Dim MabarComd As CommandBarControl
'Dim SousMenu As CommandBarButton
Dim k As Byte
supmabarre
Set aide = CommandBars(1).FindControl(ID:=30010)
If aide Is Nothing Then
Set Mabarre = CommandBars(1).Controls.Add(Type:=msoControlPopup, temporary:=True)
Else
Set Mabarre = CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=aide.Index, temporary:=True)
End If
Mabarre.Caption = "Planning :"
[B]Set MabarComd = Mabarre.Controls.Add(Type:=msoControlDropdown)[/B]
[B]With MabarComd[/B]
[B].Style = msoComboLabel[/B]
[B].Caption = "Mois :"[/B]
[B]'.TooltipText = "Sélectionner un mois dans la liste"[/B]
[B].OnAction = "Usf1"[/B]
[B]For k = 1 To 12[/B]
[B] .AddItem MonthName(k)[/B]
[B] .ListIndex = 1[/B]
[B]Next k[/B]
[B].BeginGroup = True[/B]
[B]End With[/B]
Set MabarComd = Mabarre.Controls.Add(Type:=msoControlButton)
With MabarComd
.Style = msoButtonCaption
.Caption = "Nouvelle Année"
.BeginGroup = True
'.TooltipText = "Changement d'année"
.OnAction = "Usf3"
.BeginGroup = True
End With
Set MabarComd = Mabarre.Controls.Add(Type:=msoControlButton)
With MabarComd
.Style = msoButtonCaption
.Caption = "Imprimer"
.BeginGroup = True
'.TooltipText = "Imprime le mois"
.OnAction = "Imprim"
End With
End Sub
Merci à tous ceux qui prendront le temps de lire ceci (un peu long je sais ) et qui j'espère pourront m'aider.
Bonne fin de nuit.