Position Menu Excel

Version imprimable

2 pièce(s) jointe(s)

Position Menu Excel

Bonjour,

Je suis parti d'un code trouvé sur internet pour créer un menu dans excel .
Le probléme c'est que pour l'afficher l'utilisateur est obligé de cliquer sur l'icone menu à Gauche je vous joins la copie ecran .

Est il possible de faire en sorte que le menu s'affiche des l'ouverture du fichier sans cliquer sur le bouton menu
.

Voici le code dans le workbook

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Option Explicit
 
Private Sub Workbook_Open()
    Application.Run "Bouton"
End Sub
 
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Dim M_L As Single, M_T As Single
    If Menu_On Then
        M_L = Menu.Left: M_T = Menu.Top
        Unload Menu
        Menu.StartUpPosition = 0
        Menu.Left = M_L: Menu.Top = M_T
        Menu.Show
    End If
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.CommandBars("Menu_Page").Delete
End Sub

Code du module

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
 
Public Menu_On As Boolean
 
Private Sub Bouton()
On Error Resume Next
Dim Alea As Byte, CMB As CommandBar, obj As Object
Application.CommandBars("Menu_Page").Delete
 
Set CMB = Application.CommandBars.Add("Menu_Page")
With CMB
    .Position = msoBarFloating
    .Visible = True
    .Controls.Add Type:=msoControlButton
End With
 
With CMB.Controls(1)
    .Caption = "Afficher le Menu"
    .OnAction = "Call_Menu"
    .Width = 30
    .Height = 30
    .FaceId = 172
End With
 
End Sub
'_________________________________________________________________________________________________________
 
Private Sub Call_Menu(): Menu.Show 0: End Sub

Merci de votre aide

17/04/2009, 23h21
drakkar_agfa
Bonjour,

Je ne sais pas si c'est ce que tu veux mais avec simplement ceci
Code:

1 2 3 4 5 6 7 'Dans ThisWorkbook Private Sub Workbook_Open() Call_Menu End Sub
à l'ouverture du classeur, la macro "Call_Menu" sera exécuté

Si ce n'est pas ce que tu veux, explique un peu plus ;)
17/04/2009, 23h50
spud96

désolé mais je suis vraiment débutant, si je remplace le code dans le workbook par le tiens ca ne fonctionne plus .

En fait ce que je souhaite c'est qu'il n'y ai plus de boutons mais que le menu s'affiche des l'ouverture sans que l'on ai besoin de cliquer sur le bouton.:oops:
19/04/2009, 19h11
JPierreM
Je présume que Menu représente un UserForm, si c'est le cas
Code:

1 2 3 Private Sub Workbook_Open() Menu.Show 0 End Sub
Le reste ne sert à rien si ce n'est à créer une barre flottante avec 1 bouton qui appelle ton formulaire.
Comme tu ne veux pas de bouton appelle directement ton formulaire à l'ouverture.
19/04/2009, 22h38
spud96

Merci beaucoup c'est exactement ce que je voulais :D