Une base de données Access Pro a un bandeau très riche. Lorsqu'elle est ouverte par un utilisateur non Pro, le ruban se réduit à l'onglet "Fichier" avec 3 maigres choix: Imprimer, Options de Confidentialité, Quitter.

Comment puis l'enrichir pour les utilisateurs de la base ?

J'ai essayé un VBA avec un fichier .XML comme lu dans la documentation Access mais l'AutoExec ne s'exécute pas et le .loadCustomUI ne fait pas varier le menu.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Option Compare Database
 
Public Sub AutoExec()
 
  Application.LoadCustomUI "Christian", "customUI.xml"
   MsgBox "loadCustumUI fait"
End Sub

"customUI.xml"
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
29
 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon>
    <tabs>
      <tab idMso="TabHome">
        <group idMso="GroupFont" visible="false" />
      </tab>
      <tab id="CustomTab" label="My Tab">
        <group id="SampleGroup" label="Sample Group">
          <toggleButton id="ToggleButton1" size="large" label="Large Toggle Button" getPressed="MyToggleMacro"  />
          <checkBox id="CheckBox1" label="A CheckBox" screentip="This is a check box" onAction="MyCheckboxMacro" />
          <editBox id="EditBox1" getText="MyTextMacro" label="My EditBox" onChange="MyEditBoxMacro"/>
          <comboBox id="Combo1" label="My ComboBox" onChange="MyComboBoxMacro">
            <item id="Zip1" label="33455" />
            <item id="Zip2" label="81611" />
            <item id="Zip3" label="31561" />
          </comboBox>
          <advanced>
            <button id="Launcher1" screentip="My Launcher" onAction="MyLauncherMacro" />
          </advanced>
        </group>
        <group id="MyGroup" label="My Group" >
          <button id="Button" label="My Large Button" size="large" onAction="MyButtonMacro" />
          <button id="Button2" label="My Normal Button" size="normal" onAction="MyOtherButtonMacro" />
        </group >
      </tab>
    </tabs>
  </ribbon>
</customUI>