Discussion :

[Nelmech]

Bonjour à tous

Aprés avoir parcouru la FAQ et le net, j'aurai besoin d'un petit coup de main.
Car si les topics et autre sites parlant de comment masquer le ruban ou comment le personnaliser via XML pullulent sur le net, je n'ai pas réussi à trouver ce que je souhaitais...

Connaissez-vous une manière, via VBA uniquement, de masquer certaines catégories du Ruban, et non toutes les catégories?

Par exemple si je souhaite masquer uniquement la section "Accueil", et laissez le reste, connaissez vous une commande pour cela SVP?

[LedZeppII]

Bonjour,

Il faut créer un ruban personnalisé.
Il y a deux possibilités.
Ou tu masques explicitement certains éléments, ou tu masques tout et tu définis ce qui est visible.

Ci-dessous deux exemples (Access 2007) pour masquer l'onglet Accueil, en fonction des deux logiques.

1. Masquer explicitement (pas de startFromScratch="true")

Code xml :

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

1
2
3
4
5
6
7
8
9
10
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <!-- RUBAN -->
    <ribbon>
        <!-- ONGLETS DU RUBAN -->
        <tabs>
            <!-- onglet masqué par visible="false"  -->
            <tab idMso="TabHomeAccess" visible="false" />
        </tabs>
    </ribbon>
</customUI>

2. Tout masquer pas défaut et définir ce qui est visible (startFromScratch="true")

Code xml :

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
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <!-- RUBAN -->
    <ribbon startFromScratch="true">
        <!-- ONGLETS DU RUBAN -->
        <tabs>
            <!-- Onglets affichés par visible="true" -->
            <tab idMso="TabCreate" visible="true" />
            <tab idMso="TabExternalData" visible="true" />
            <tab idMso="TabDatabaseTools" visible="true" />
            <tab idMso="TabSourceControl" visible="true" />
            <tab idMso="TabAddIns" visible="true"/>
        </tabs>
        <!-- ONGLETS CONTEXTUELS -->
        <contextualTabs>
            <tabSet idMso="TabSetFormToolsLayout" visible="true"/>
            <tabSet idMso="TabSetFormTools" visible="true"/>
            <tabSet idMso="TabSetReportToolsLayout" visible="true"/>
            <tabSet idMso="TabSetReportTools" visible="true"/>
            <tabSet idMso="TabSetRelationshipTools" visible="true"/>
            <tabSet idMso="TabSetQueryTools" visible="true"/>
            <tabSet idMso="TabSetMacroTools" visible="true"/>
            <tabSet idMso="TabSetPivotTableAccess" visible="true"/>
            <tabSet idMso="TabSetPivotChartAccess" visible="true"/>
            <tabSet idMso="TabSetTableToolsDatasheet" visible="true"/>
            <tabSet idMso="TabSetTableToolsDesign" visible="true"/>
        </contextualTabs>
    </ribbon>
</customUI>

Pour Access 2010, remplacer

Code :

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

xmlns="http://schemas.microsoft.com/office/2006/01/customui"

par

Code :

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

xmlns="http://schemas.microsoft.com/office/2009/07/customui"

A+

[Nelmech]

Bonjour,

Tout d'abord désolé pour le délais de réponse... Et merci de ton aide

Je n'ai pas encore eu l'occassion de mettre en place ta solution, mais ça réponds parfaitement à ce que je cherchais, merci beaucoup pour tout ce code qui va grandemment me simplifier la vie !

J'aurai une derniére petite question, qui peut sembler bête mais pas grave^^:

Quel que soit les manip que l'on veut faire, au niveau du ruban, on est obligé de passer par du XML, aucune personnalisation possible directement via VBA?

[LedZeppII]

Bonjour,

Quel que soit les manip que l'on veut faire, au niveau du ruban, on est obligé de passer par du XML, aucune personnalisation possible directement via VBA?

On ne peut pas modifier le ruban en VBA.
Le point de départ est un ruban personnalisé, en XML.
En gros, on ne modifie jamais le ruban. On fournit un nouveau ruban.

A+