Bonjour à tous,
 
Mon idée d'origine est de faire ressembler un projet Access le plus possible à un logiciel classique.
 
J'aimerais donc entre autres pouvoir lancer la modification de la barre de menu. Au lieu du Fichier/Edition/Affichage etc habituel, j'aimerais personnaliser en rapport avec le contenu de mon "programme".
 
Pourriez-vous me donner quelques indications ?
 
Merci beaucoup  

Bon je vois comment créer une barre d'outils personnalisée, je vois comment arranger tout ça pour qu'il n'y ait qu'elle qui s'affiche au démarrage, mais je ne vois pas comment personnaliser le "nom" des commandes. Comment puis-je éviter de choisir directement dans la liste qu'on me propose ?
 
Merci

Je ne pense pas que ce soit possible comme ça. Le truc à faire, serait de planquer la barre par défaut, et d'en faire une à toi personnalisée (via un formulaire sans bordure ni bouton de fermeture)

J'ai sous les yeux un logiciel sous Access qui le fait, qui a remplacé sa barre de menus générale par une barre de menus perso avec des commandes inédites. Mais je n'ai pas possibilité d'aller voir comment cela a été fait. C'est frustrant.
C'est donc possible !

C'est un bête formulaire en fait

OK tout beigne !
Il est impossible de créer des barres de menu générales vraiment perso, donc l'Aide Windows (avec des majuscules) nous conseille de jongler avec des macros (essentiellement à partir de l'action AjouterMenu)
Voili Voilou !
 
Merci FlorentG de m'avoir répondu !

slt, en reponse a ta question je pense que j'ai quelque code en VBA qui pour creer une barre de menu.
Voici le code.
Public Sub CreerMenu()  
 
Dim Cmb As Office.CommandBar  
Dim btn As Office.CommandBarButton  
Dim SubCmb As Office.CommandBarPopup  
Dim SubCmb1 As Office.CommandBarPopup  
 
On Error Resume Next  
Application.CommandBars("MaBarre" ).Delete  
 
Set Cmb = Application.CommandBars.Add("MaBarre", msoBarTop, True, False)  
 
Set SubCmb = Cmb.Controls.Add(msoControlPopup)  
SubCmb.Caption = "Saisie"  
Set btn = SubCmb.Controls.Add(msoControlButton)  
With btn  
    .Caption = "Ecole"  
    .Style = msoButtonCaption  
    .OnAction = "Saisie Ecole"  
End With  
 
Set btn = SubCmb.Controls.Add(msoControlButton)  
With btn  
    .Caption = "Année Scolaire"  
    .Style = msoButtonCaption  
Public Sub CreerMenu()  
 
Dim Cmb As Office.CommandBar  
Dim btn As Office.CommandBarButton  
Dim SubCmb As Office.CommandBarPopup  
Dim SubCmb1 As Office.CommandBarPopup  
 
On Error Resume Next  
Application.CommandBars("MaBarre" ).Delete  
 
Set Cmb = Application.CommandBars.Add("MaBarre", msoBarTop, True, False)  
 
Set SubCmb = Cmb.Controls.Add(msoControlPopup)  
SubCmb.Caption = "Saisie"  
Set btn = SubCmb.Controls.Add(msoControlButton)  
With btn  
    .Caption = "Ecole"  
    .Style = msoButtonCaption  
    .OnAction = "Saisie Ecole"  
End With  
 
Set btn = SubCmb.Controls.Add(msoControlButton)  
With btn  
    .Caption = "Année Scolaire"  
    .Style = msoButtonCaption  
    .OnAction = "a propos"  
End With  
Cmb.Visible = True  
End Sub

Déterrage de 7 ans,
 
Je t'invite à regarder la date du dernier message d'un topic avant de poster une réponse .
 
Mais merci d'avoir contribué