Ajout d'un nouveau menu Aide

[Arnaud]

Bonjour tt le monde, je pense que ma macro est bonne cependant le menu n'apparait pas. Merci de votre aide
Voici ma macro :

Sub nouveau_menu()
With CommandBars(1).Controls.Add(msoControlPopup)
.Caption = "aide"
With .Controls.Add(msoControlButton)
.Caption = "Modifier le référentiel"
.BeginGroup = True
.OnAction = "Affiche1"
End With
With .Controls.Add(msoControlButton)
.Caption = "Saisie de demandes"
.BeginGroup = True
.OnAction = "Affiche2"
End With
With .Controls.Add(msoControlButton)
.Caption = "Archivage de la demande"
.BeginGroup = True
.OnAction = "Affiche3"
End With
With .Controls.Add(msoControlButton)
.Caption = "Initialisation du programme"
.BeginGroup = True
.OnAction = "Affiche4"
End With
With .Controls.Add(msoControlButton)
.Caption = "suivi des demandes"
.BeginGroup = True
.OnAction = "Affiche5"
End With
With .Controls.Add(msoControlButton)
.Caption = "délais moyens par type de demandes"
.BeginGroup = True
.OnAction = "Affiche6"
End With
With .Controls.Add(msoControlButton)
.Caption = "délais par date"
.BeginGroup = True
.OnAction = "Affiche7"
End With
End With
End Sub

Sub Affiche1()
Dim Msg, Style, Title
Msg = "Permet d'apporter des modifications aux types de demandes possibles."
Style = vbYes
Title = "aide sur ce produit"
Response = MsgBox(Msg, Style, Title)

End Sub


Sub Affiche2()
Dim Msg, Style, Title
Msg = "Permet de saisir les caractéristiques de la demande (Type, Dates)."
Style = vbYes
Title = " aide sur ce produit"
Response = MsgBox(Msg, Style, Title)
End Sub

Sub Affiche3()
Dim Msg, Style, Title
Msg = "Pour enregistrer la demande dans 3 feuilles(1 permettant le tri par type, 1 pour le tri par date et 1 feuille archive où toutes les commandes saisies sont stockées. Un bouton de commande permet d'accéder à un histogramme illustrant ces données)."
Style = vbYes
Title = "aide sur ce produit"
Response = MsgBox(Msg, Style, Title)
End Sub


Sub Affiche4()
Dim Msg, Style, Title
Msg = "Permet d'effacer toutes les demandes(sauf celles stockées dans la feuille d'archives)."
Style = vbYes
Title = "aide sur ce produit"
Response = MsgBox(Msg, Style, Title)
End Sub

Sub Affiche5()
Dim Msg, Style, Title
Msg = "les demandes archivées peuvent être triées par type."
Style = vbYes
Title = "aide sur ce produit"
Response = MsgBox(Msg, Style, Title)
End Sub


Sub Affiche6()
Dim Msg, Style, Title
Msg = "Ce tableau récapitule ,par type de demandes, le nombre de ces demandes, le total de chaque sorte de délais et une moyenne de chaque type de délais par type de demande."
Style = vbYes
Title = "aide sur ce produit"
Response = MsgBox(Msg, Style, Title)
End Sub


Sub Affiche7()
Dim Msg, Style, Title
Msg = "les demandes peuvent être triées par mois avec le nombre de jours de délais entre chaque étapes de la demande.Un bouton de commande permet d'accéder à un tableau récapitulatif répertoriant la moyenne de chaque type de délais par mois.Un bouton de commande à côté du tableau permet de voir un graphique illustrant les données du tableau."
Style = vbYes
Title = "aide sur ce produit"
Response = MsgBox(Msg, Style, Title)
End Sub

Sub Autpen()
Sheets("menu").Activate
End Sub

 

[schmail]

Bonjour Arnaud

Si tu veux que cela s'ouvre au démarrage :

Ds "This WorkBook"

Private Sub Workbook_Open()
Call NouveauMenu
End Sub

Mais je n'ai peut être pas bien compris ta demande...

 

[JB]

IL me disent que sa "With CommandBars(1).Controls.Add(msoControlPopup)" est non definit. Je comprends pas.

 

[schmail]

Répond leur que tu vas regarder si tu n'as pas "option explicit" en haut du module ... Si tu la trouves, supprime la
Cela doit être possible de définir la commandBar, mais je ne sais pas faire....Bon Appétit

 

[Ti]

ne supprime surtout pas Option Explicit, c'est la porte ouverte à tous les bugs les plus vicieux. S'il y a un conseil à ne pas suivre, c'est bien celui de Schmail !!!
D'autre part, pour avoir une réponse, il est plus simple de mettre directement ton fichier en pièce jointe (zippée) plutôt que ces longues lignes de code

 

[schmail]

Désolé JB, je me débrouille avec mes ressources de débutant autodidacte...