Comment ajouter un onglet Ruban personnalisé en utilisant VBA ?

Question

Je cherche un moyen d'ajouter un onglet personnalisé dans le ruban Excel qui contiendrait quelques boutons. J'ai trouvé quelques ressources à ce sujet via Google mais elles semblent toutes louches et outrageusement compliquées.

Quelle est la manière rapide et simple de le faire ? J'aimerais que le nouvel onglet se charge lorsque mon VBA se charge dans Excel..

MISE À JOUR : J'ai essayé cet exemple de ici mais j'obtiens une erreur "objet requis" sur la dernière instruction :

Public Sub AddHighlightRibbon()
Dim ribbonXml As String

ribbonXml = ""
ribbonXml = ribbonXml + "  "
ribbonXml = ribbonXml + "    "
ribbonXml = ribbonXml + "    "
ribbonXml = ribbonXml + "      "
ribbonXml = ribbonXml + "        "
ribbonXml = ribbonXml + "          "
ribbonXml = ribbonXml + "        "
ribbonXml = ribbonXml + "      "
ribbonXml = ribbonXml + "    "
ribbonXml = ribbonXml + "  "
ribbonXml = ribbonXml + ""

ActiveProject.SetCustomUI (ribbonXml)
End Sub

Answer 1

À ma connaissance, vous ne pouvez pas utiliser VBA Excel pour créer un onglet personnalisé dans le ruban Excel. Cependant, vous pouvez masquer/rendre visible un composant du ruban en utilisant VBA. De plus, le lien que vous avez mentionné ci-dessus est pour MS Project et non MS Excel.

Je crée des onglets pour mes applications/compléments Excel en utilisant cet utilitaire gratuit appelé Custom UI Editor.

---

Éditer : Pour répondre à la nouvelle demande de l'OP

Tutoriel

Voici un court tutoriel comme promis :

1. Après avoir installé le Custom UI Editor (CUIE), ouvrez-le puis cliquez sur Fichier | Ouvrir et sélectionnez le fichier Excel pertinent. Assurez-vous que le fichier Excel est fermé avant de l'ouvrir via CUIE. Je vais utiliser une nouvelle feuille de calcul comme exemple.

2. Cliquez avec le bouton droit de la souris comme indiqué dans l'image ci-dessous et cliquez sur "Office 2007 Custom UI Part". Il insérera le "customUI.xml"

3. Ensuite, cliquez sur le menu Insertion | Exemple XML | Onglet personnalisé. Vous verrez que le code de base est automatiquement généré. Maintenant, vous êtes prêt à le modifier selon vos besoins.

4. Examinons le code

label="Custom Tab" : Remplacez "Custom Tab" par le nom que vous souhaitez donner à votre onglet. Pour l'instant, appelons-le "Jerome".

La partie ci-dessous ajoute un bouton personnalisé.

Démonstration

Avec cela, créons 2 boutons et appelons-les "JG Button 1" et "JG Button 2". Gardons le visage souriant comme image du premier et gardons le "Soleil" pour le second. Le code modifié ressemble maintenant à ceci :

Supprimez tout le code qui a été généré dans CUIE, puis collez le code ci-dessus à la place. Enregistrez et fermez CUIE. Maintenant, lorsque vous ouvrez le fichier Excel, cela ressemblera à ceci :

Maintenant la partie du code. Ouvrez l'Éditeur VBA, insérez un module et collez ce code :

Public Sub Callback1(control As IRibbonControl)

    MsgBox "Vous avez appuyé sur le visage souriant"

End Sub

Public Sub Callback2(control As IRibbonControl)

    MsgBox "Vous avez appuyé sur le Soleil"

End Sub

Enregistrez le fichier Excel en tant que fichier activé par macro. Maintenant, lorsque vous cliquez sur le Visage Souriant ou le Soleil, vous verrez la boîte de dialogue pertinente :

Answer 2

J'ai pu accomplir ceci avec VBA dans Excel 2013. Aucun éditeur spécial n'est nécessaire. Tout ce dont vous avez besoin est l'éditeur de code Visual Basic qui peut être accédé dans l'onglet Développeur. L'onglet Développeur n'est pas visible par défaut donc il faut l'activer dans Fichier>Options>Personnaliser le ruban. Sur l'onglet Développeur, cliquez sur le bouton Visual Basic. L'éditeur de code va s'ouvrir. Faites un clic droit dans le volet Explorateur de projets sur la gauche. Cliquez sur le menu Insertion et choisissez module. Ajoutez les deux sous-programmes ci-dessous dans le nouveau module.

Sub LoadCustRibbon()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "" & vbNewLine
ribbonXML = ribbonXML + "  " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "      " & vbNewLine
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "          " & vbNewLine
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "      " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "  " & vbNewLine
ribbonXML = ribbonXML + ""

ribbonXML = Replace(ribbonXML, """", "")

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Sub ClearCustRibbon()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "" & _
""

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Appelez le sous-programme LoadCustRibbon dans l'événement Ouvrir le classeur et appelez le sous-programme ClearCustRibbon dans l'événement Avant_fermer du fichier de code ThisWorkbook.

Answer 3

J'ai lutté comme un fou, mais c'est en réalité la bonne réponse. Pour ce que cela vaut, ce que j'ai manqué était ceci :

1. Comme d'autres le disent, on ne peut pas créer le ruban CustomUI avec VBA, cependant, vous n'en avez pas besoin !
2. L'idée est que vous créez votre code Ribbon xml en utilisant Personnaliser le ruban dans Fichier > Options d'Excel, puis exportez le Ruban vers un fichier .customUI (c'est juste un fichier txt, avec xml dedans)
3. Arrive alors le tour de magie : vous pouvez inclure le code .customUI dans votre fichier .xlsm en utilisant l'outil MS auquel ils font référence ici, en copiant le code du fichier .customUI
4. Une fois inclus dans le fichier .xlsm, chaque fois que vous l'ouvrez, le ruban que vous avez défini est ajouté au ruban de l'utilisateur - mais utilisez sinon vous perdez le reste du ruban. En quittant le classeur, le ruban est supprimé.
5. À partir de là, c'est simple, créez votre ruban, copiez le code xml spécifique à votre ruban du fichier .customUI, et placez-le dans un wrapper comme indiqué ci-dessus (...votre xml

Soit dit en passant, la page qui l'explique sur le site de Ron est maintenant à http://www.rondebruin.nl/win/s2/win002.htm

Et voici son exemple sur comment activer/désactiver des boutons sur le Ruban http://www.rondebruin.nl/win/s2/win013.htm

Pour d'autres exemples de rubans en xml, veuillez également consulter http://msdn.microsoft.com/en-us/library/office/aa338202%28v=office.12%29.aspx

Answer 4

Les réponses ici sont spécifiques à l'utilisation de l'Éditeur d'interface utilisateur personnalisé. J'ai passé du temps à créer l'interface sans ce merveilleux programme, donc je documente la solution ici pour aider quiconque à décider s'il a besoin ou non de cet éditeur d'interface utilisateur personnalisé.

J'ai trouvé la page d'aide Microsoft suivante - https://msdn.microsoft.com/en-us/library/office/ff861787.aspx. Cela montre comment configurer l'interface manuellement, mais j'ai eu quelques problèmes lorsque je pointais vers mon code complémentaire personnalisé.

Pour que les boutons fonctionnent avec vos macros personnalisées, configurez la macro dans vos sous-dossiers .xlam à appeler comme décrit dans cette réponse SO - Appeler une macro Excel depuis le ruban. Fondamentalement, vous devrez ajouter ce paramètre "control As IRibbonControl" à n'importe quel module pointé depuis votre xml de ruban. De plus, votre xml de ruban doit avoir la syntaxe onAction="myaddin!mymodule.mysub" pour appeler correctement tous les modules chargés par le complément.

En suivant ces instructions, j'ai pu créer un complément Excel (.xlam) qui a un onglet personnalisé chargé lorsque mon VBA est chargé dans Excel avec le complément. Les boutons exécutent du code à partir du complément et l'onglet personnalisé se désinstalle lorsque je supprime le complément.

Answer 5

En plus de la réponse de Roi-Kyi Bryant, ce code fonctionne parfaitement dans Excel 2010. Appuyez sur ALT + F11 et l'éditeur VBA apparaîtra. Double-cliquez sur ThisWorkbook sur le côté gauche, puis collez ce code:

Private Sub Workbook_Activate()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "" & vbNewLine
ribbonXML = ribbonXML + "  " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "      " & vbNewLine
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "          " & vbNewLine
ribbonXML = ribbonXML + "        " & vbNewLine
ribbonXML = ribbonXML + "      " & vbNewLine
ribbonXML = ribbonXML + "    " & vbNewLine
ribbonXML = ribbonXML + "  " & vbNewLine
ribbonXML = ribbonXML + ""

ribbonXML = Replace(ribbonXML, """", "")

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

Private Sub Workbook_Deactivate()

Dim hFile As Long
Dim path As String, fileName As String, ribbonXML As String, user As String

hFile = FreeFile
user = Environ("Username")
path = "C:\Users\" & user & "\AppData\Local\Microsoft\Office\"
fileName = "Excel.officeUI"

ribbonXML = "" & _
""

Open path & fileName For Output Access Write As hFile
Print #hFile, ribbonXML
Close hFile

End Sub

N'oubliez pas de sauvegarder et de rouvrir le classeur. J'espère que cela vous aidera!