Discussion :

[spud96]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[drakkar_agfa]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[JPierreM]

Je présume que Menu représente un UserForm, si c'est le cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[spud96]

Merci beaucoup c'est exactement ce que je voulais