Discussion :

[david.kaczmarek]

Bonjour à tous,

Je souhaiterai personnaliser le ruban Excel, à l'ouverture d'Excel via VBA.

Je cherché, fouillé, testé pas mal de choses, mais je n'arrive pas au résultat voulu.

Pour l'instant, j'en suis là :

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
 
Private Sub Workbook_Open()
    Dim CmdBar As CommandBar
    Dim Bouton As CommandBarButton
 
    Set CmdBar = Application.CommandBars _
        .Add(Name:="Def", Position:=msoBarTop, Temporary:=True)
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .FaceId = 372
        .Caption = "Rafraichissement"
        .DescriptionText = "Coucou"
        .Style = msoButtonIconAndCaptionBelow
        .OnAction = "Macro1"
    End With
 
    Set Bouton = CmdBar.Controls.Add(Type:=msoControlButton)
    With Bouton
        .Caption = "Validation données"
        .FaceId = 1087
        .OnAction = "Macro2"
        .Style = msoButtonIconAndWrapCaptionBelow
    End With
 
    CmdBar.Visible = True
End Sub

Ce qui me donne ceci :



J'aurai souhaité modifier le nom "Complément" et avoir des icônes plus grandes, pour arriver à un menu ressemblant à ceci (quand je passe par l'édition manuelle du ruban) :



Pourriez-vous m'aider?

Merci d'avance,

David.

[Pierre Dumas]

Bonjour

Voici tous les liens que je connais pour la mise en place des rubans personnalisés :
Nouveautés 2010 sur DVP
Personnalisation sur DVP
Les callbacks sur DVP
Autre personnalisation
Office RibbonX Editor

Bonne lecture

En espérant que cela aide

Bon après-midi

Pierre Dumas

[david.kaczmarek]

Merci d'avoir pris le temps de me répondre. Pas mal de lecture, effectivement...

J'ai suivi les instructions "Personnalisation sur DVP" mais j'obtiens un message comme quoi Excel ne peut pas ouvrir le fichier car il est corrompu.
Dans le tutoriel, on me demande : "Ouvrez un nouveau classeur Excel et enregistrez-le sous l'extension .xlsm (format openXML avec macros)."

Je ne trouve pas ce format, ce que j'ai c'est :
- Classeur Excel (prenant en charge les macros) (*.xlsm)
ou
- Feuille de calcul Opem XML Strict (*.xlsx)

Je l'enregistre donc au format .xlsm, mais ca ne passe pas...

Le tuto date de 2008, est-il compatible avec 365?

Merci,

David.

[jurassic pork]

Hello,
Dans la liste des liens qu'à indiquer Pierre, il y a Office RibbonX Editor (gratuit de licence MIT) qui va grandement te faciliter la tâche car il édite directement le fichier CustomUI.xml à l'intérieur des fichiers xlsm.
Exemple pour commencer à l'utiliser :

• Installer Office RibbonX Editor : télécharger le fichier OfficeRibbonXEditor-NETFramework-Installer.exe en bas de cette page . Cette version utilise le NetFramework > 4.6.1 normalement déjà installé sur Windows 10 ou windows 11.
• Créer un fichier xlsm.
• L'ouvrir avec Office RibbonX Editor
• Menu Insérer/Exemple Xml/Excel - A Custom Tab
• Un fichier CustomUI.xml est créé. Modifier le comme bon vous semble
• Quand votre fichier CustomUI.xml est OK, enregistrer les modifications : icone Enregistrer

La liste des icones imageMso disponibles est consultable ici par exemple
Le nom des onglets d'Office est consultable ici par exemple

Avec ce customUI.xml :

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
12
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    <ribbon>
        <tabs>
            <tab id="customTab" label="Compléments" insertAfterMso="TabHome">
                <group id="customGroup" label="Outils Compléments">
                    <button id="customButton1" label="Rafraîchissement" size="large" onAction="Refresh" imageMso="Refresh" />
                    <button id="customButton2" label="Validation données" size="large" onAction="Validation" imageMso="DataValidation" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

Voici ce que j'obtiens :






Ami calmant J.P

[david.kaczmarek]

Un tout grand merci d'avoir passé du temps pour me répondre!

Effectivement avec Office RibbonX Editor c'est très simple et visuellement j'arrive exactement à ce que je veux!

Par contre fonctionnellement, j'ai encore un petit soucis lors de l'appel des macros.

Pour le test, j'ai créé une Sub dans Thisworkbook et une macro1 qui affiche juste une msgbox avec "Thisworkbook" ou "Macro1", suivant le cas.

Si je mets

Code :

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

1
2
3
 
onAction="Thisworkbook.MAJ"
onAction="Macro1"

J'ai comme retour : "Nombre d'arguments incorrect ou affectation de propriété incorrecte".

Si je mets

Code :

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

1
2
3
 
onAction="Thisworkbook.MAJ()"
onAction="Macro1()"

La msgbox s'affiche, je clique "ok", elle s'affiche une deuxième fois, je clique "ok, j'ai un message d'erreur "400".

Une idée?

Merci,

David.

[jurassic pork]

pourquoi mets-tu thisworkbook.? la macro appelée est obligatoirement dans le classeur puisque le customUI est dans le classeur. Il ne faut pas mettre une instruction mais une macro.