Microsoft 365 Création d'un nouvel onglet du ruban en vba et y attacher 4 macros complémentaires (MAC et PC)

RyuAutodidacte · 11 Mai 2023

Bonjour,

j'ai beau chercher partout mais je ne trouve de solution pour le moment …

Comme l'onglet "Acceuil" qui existe dans le ruban, je cherche à pourvoir créer par vba un nouvel onglet "TOTO" et y insérer 4 macros, provenant d'un complément Excel d'un fichier xlam déjà insérer par macro :

VB:

Sub Add_AddIn() 'version Mac (peut être PC aussi pouvez vous confirmer SVP)
Dim addInPath As String
    addInPath = "MonChemin/TEST.xlam"
    AddIns.Add addInPath
    AddIns("TEST").Installed = True '
End Sub

Le but est de pourvoir faire une automatisation d'installation sur plusieurs utilisateurs Mac et PC

merci d'avance pour vos réponses

Ryu

RyuAutodidacte · 23 Juin 2024

Hi Patrick,
j'ai fait la liste pour que l'on puisse faire les correspondances des icons sur le menu/interface
Si tu vois que j'en ai oublié qui aurait besoin d'icon, complète là alors

Code:

START
NOUVEAU PROJET
RESET
ENREGISTRER LE PROJET
REPRENDRE UN PROJET
APERÇU DU XML
ENREGISTRER LE XML
CRÉATION DU FICHIER EXCEL
LES CONTAINERS
ADD TAB
ADD GROUP
ADD BOX
ADD BUTTONGROUP
ADD GALLERY
CONTROL LISTE ET MENU
ADD MENU
ADD DYNAMIC MENU
ADD DROPDOWN
ADD COMBOBOX
ADD BUTTON
ADD TOGGLEBUTTON
ADD SPLITBUTTON
ADD ITEM
ADD EDITBOX
ADD CHECKBOX
ADD SEPARATEUR
ADD MENU SEPARATEUR
ADD LABBELCONTROL

patricktoulon · 24 Juin 2024

re
gallery clickable

patricktoulon · 24 Juin 2024

re
le viewer

patricktoulon · 24 Juin 2024

RyuAutodidacte · 2 Juillet 2024

Hello Patrick
peux tu me dire si le format de fichier xml est ok pour toi … et me dire ce qu'il ne va pas le cas échéant pour que retravaille le code :

patricktoulon · 2 Juillet 2024

Bonjour Ryu
oui ca m'a l'air correct

RyuAutodidacte · 2 Juillet 2024

c'étais le coté UTF8 dont je n'étais pas sur
car quand je fais dans le terminal du système :

Code:

file -I /Users/UserPro/Downloads/001\ Ribbon/customUi.xml
Le résultat ci-dessous
/Users/UserPro/Downloads/001 Ribbon/customUi.xml: text/xml; charset=us-ascii

EDIT : comment peut on le vérifier correctement ?

patricktoulon · 2 Juillet 2024

ben pour le vérifier
il suffit de le compiler dans un xlsm et tester
par contre avant de compiler il faut faire les callbacks

RyuAutodidacte · 2 Juillet 2024

En effet qd je regarde dans VS code il marque aussi UTF8 mais le résultat du terminal me laisse perplexe (charset=us-ascii)
je vais rajouter la partie Bom au code aussi

patricktoulon · 2 Juillet 2024

oui car il n'y a pas la nomenclature il risque d'onc d'avoir des soucis avec les eventuels caractères speciaux (comme les accentués par exemple)

je fait la même demo dans la ressource (dans une vidéo)
c'est les groupe switchable
en l'occurence pour ton code compilé ca sera
les callbacks

VB:

'patricktoulon
'variable
Public v(1 To 3) As Boolean
Public myRibbon As IRibbonUI

'Callback for customUI.onLoad
Sub CustomUIOnLoad(ribbon As IRibbonUI)
Set myRibbon = ribbon
End Sub

'Callback for button_1 onAction
Sub button_1_Click(control As IRibbonControl)
v(1) = True: v(2) = False: v(3) = False
myRibbon.Invalidate
End Sub

'Callback for button_2 onAction
Sub button_2_Click(control As IRibbonControl)
v(1) = False: v(2) = True: v(3) = False
myRibbon.Invalidate
End Sub

'Callback for button_3 onAction
Sub button_3_Click(control As IRibbonControl)
v(1) = False: v(2) = False: v(3) = True
myRibbon.Invalidate
End Sub

'Callback for group_2 getVisible
Sub group_2_Getvisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = v(1)
End Sub
'Callback for group_3 getVisible
Sub group_3_Getvisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = v(2)
End Sub
'Callback for group_4 getVisible
Sub group_4_Getvisible(control As IRibbonControl, ByRef returnedVal)
returnedVal = v(3)
End Sub

'Callback for button_4 onAction
Sub button_4_Click(control As IRibbonControl)
End Sub

'Callback for button_5 onAction
Sub button_5_Click(control As IRibbonControl)
End Sub

'Callback for button_6 onAction
Sub button_6_Click(control As IRibbonControl)
End Sub

'Callback for button_7 onAction
Sub button_7_Click(control As IRibbonControl)
End Sub


'Callback for button_8 onAction
Sub button_8_Click(control As IRibbonControl)
End Sub

'Callback for button_9 onAction
Sub button_9_Click(control As IRibbonControl)
End Sub

'Callback for button_10 onAction
Sub button_10_Click(control As IRibbonControl)
End Sub


'Callback for button_11 onAction
Sub button_11_Click(control As IRibbonControl)
End Sub

'Callback for button_12 onAction
Sub button_12_Click(control As IRibbonControl)
End Sub

'Callback for button_13 onAction
Sub button_13_Click(control As IRibbonControl)
End Sub

'Callback for button_14 onAction
Sub button_14_Click(control As IRibbonControl)
End Sub

'Callback for button_15 onAction
Sub button_15_Click(control As IRibbonControl)
End Sub

'Callback for button_16 onAction
Sub button_16_Click(control As IRibbonControl)
End Sub

au final ca donne ceci

RyuAutodidacte · 2 Juillet 2024

Merci

bon je retourne au taf, je regarde ca dès que je peux

patricktoulon · 2 Juillet 2024

voila comment mon creatorRibbonX enregistre les xml

CreatorRibbonX ImageMso 2023 V4.9.X

re Alors pour le onaction on garde le switch ou on remet le id+"_Click"

excel-downloads.com

patricktoulon · 2 Juillet 2024

bon ben c'est bon pour moi

VB:

Sub test()
    Dim myfile, Cod
    myfile = "C:\Users\patricktoulon\Desktop\MaccustomUI.xml"

    Cod = "<customUI>" & vbCrLf & _
           vbTab & "<ribbon>" & vbCrLf & _
           vbTab & vbTab & "<tabs>" & vbCrLf & _
           vbTab & vbTab & vbTab & "<tab>" & vbCrLf & _
           vbTab & vbTab & vbTab & "</tab>" & vbCrLf & _
           vbTab & vbTab & "</tabs>" & vbCrLf & _
           vbTab & "</ribbon>" & vbCrLf & _
           "</customUI>"

    SaveXmlFileUTF_8 Cod, myfile
End Sub

Function SaveXmlFileUTF_8(Cod, myfile)
    Dim BOM(0 To 2) As Byte 'EF BB BF
    BOM(0) = &HEF: BOM(1) = &HBB: BOM(2) = &HBF
    If Dir(myfile) <> "" Then Kill myfile
    'création du fichier xml en utf-8
    Open myfile For Binary Access Write As #1: Put #1, 1, BOM: Close #1
    'on le réouvre pour y mettre enfin le code
    Open myfile For Append As #1: Print #1, Cod: Close #1
End Function

il faudra changer le #1 pour un freefile (si Freefile ca marche sur mac)
voila voila

RyuAutodidacte · 2 Juillet 2024

patricktoulon à dit:

bon ben c'est bon pour moi

VB:

Sub test()
    Dim myfile, Cod
    myfile = "C:\Users\patricktoulon\Desktop\MaccustomUI.xml"

    Cod = "<customUI>" & vbCrLf & _
           vbTab & "<ribbon>" & vbCrLf & _
           vbTab & vbTab & "<tabs>" & vbCrLf & _
           vbTab & vbTab & vbTab & "<tab>" & vbCrLf & _
           vbTab & vbTab & vbTab & "</tab>" & vbCrLf & _
           vbTab & vbTab & "</tabs>" & vbCrLf & _
           vbTab & "</ribbon>" & vbCrLf & _
           "</customUI>"

    SaveXmlFileUTF_8 Cod, myfile
End Sub

Function SaveXmlFileUTF_8(Cod, myfile)
    Dim BOM(0 To 2) As Byte 'EF BB BF
    BOM(0) = &HEF: BOM(1) = &HBB: BOM(2) = &HBF
    If Dir(myfile) <> "" Then Kill myfile
    'création du fichier xml en utf-8
    Open myfile For Binary Access Write As #1: Put #1, 1, BOM: Close #1
    'on le réouvre pour y mettre enfin le code
    Open myfile For Append As #1: Print #1, Cod: Close #1
End Function

Regarde la pièce jointe 1199877
il faudra changer le #1 pour un freefile (si Freefile ca marche sur mac)
voila voila

Woaw woaw woaw
Mr est trop pressé … !!!!
le code je l'ai fait mais là je suis au taf et je ne peux pas me permettre de travailler sur le projet

patricktoulon · 2 Juillet 2024

Microsoft 365 Création d'un nouvel onglet du ruban en vba et y attacher 4 macros complémentaires (MAC et PC)

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Pièces jointes

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

Partager cette page

Statistiques des forums