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

patricktoulon · 31 Mai 2023

re
le sample avec le bon nom de sub
essaie le sur windows avant

patricktoulon · 14 Juin 2023

re
merci pour le com sur youtube

pour répondre a ta question si il est abouti mais plein de petits bug que j'avais la flemme de corriger
pour moi ca va car je sais ce qui faut pas faire mais pour un utilisateur lambda ça aurait été une torture

l'ancien

patricktoulon · 14 Juin 2023

re
et dans le menuj'ai mis un nouveau bouton dans le menu

RyuAutodidacte · 14 Juin 2023

patricktoulon à dit:
re
et dans le menuj'ai mis un nouveau bouton dans le menu
Regarde la pièce jointe 1172384

c'est bien ça.
petite questions : tes indentations tu les fait avec des espaces ou des tabulation ?
Tes retours Chariot sont normalement des : vbNewline , vbCr ou vbcCrLf ?

PS : je vais te préparer un zip fait sur Mac, car j'ai besoin que tu m'aides pour trouver qu'elle est la différence avec le zip sur PC stp si tu veux bien …

Usine à gaz · 14 Juin 2023

patricktoulon à dit:
re
et dans le menuj'ai mis un nouveau bouton dans le menu
Regarde la pièce jointe 1172384

Et on me dit que je suis une Usine à Gaz lol 😛

RyuAutodidacte · 14 Juin 2023

Usine à gaz à dit:
Et on me dit que je suis une Usine à Gaz lol 😛

On le dit pas c'est le pseudo qui le dit 😛 😉

Faut quand même avouer que l'outil Creator de Patrick est hyper pratique et pas besoin de mettre les mains dans le cambouis 😉
Moi j'aime bien apprendre et comme je suis sur Mac (j'ai bien appris les diff entre PC et Mac), je fais en sorte que mes codes soient multi-plateforme … PC/MAC 😉

ChTi160 · 14 Juin 2023

Bonjour le Fil
Il est dit :

tu pose la question alors que je t'ai donné la version 4.0 de mon compilateur ou tu a tout dedans

Puis

Faut quand même avouer que l'outil Creator de Patrick est hyper pratique

Mais où peut on le trouver cet outil ? Ou alors j'ai pas compris.... Lol
Mais rien que le visuel du fonctionnement de cet outil et très prometteur !
Bonne fin de journée
Jean marie

Usine à gaz · 14 Juin 2023

ChTi160 à dit:
Bonjour le Fil
Il est dit :

Puis

Mais où peut on le trouver cet outil ? Ou alors j'ai pas compris.... Lol
Mais rien que le visuel du fonctionnement de cet outil et très prometteur !
Bonne fin de journée
Jean marie

Bjr le fil, le Forum 🙂
Ben oui ...

RyuAutodidacte · 14 Juin 2023

ChTi160 à dit:
Bonjour le Fil
Il est dit :

Puis

Mais où peut on le trouver cet outil ? Ou alors j'ai pas compris.... Lol
Mais rien que le visuel du fonctionnement de cet outil et très prometteur !
Bonne fin de journée
Jean marie

patricktoulon à dit:
pour répondre a ta question si il est abouti mais plein de petits bug que j'avais la flemme de corriger
pour moi ca va car je sais ce qui faut pas faire mais pour un utilisateur lambda ça aurait été une torture

Hello,
je pense qu'une fois finalisé complètement en étant sur qu'il n y a plus de bug il le mettra dans les contributions, Patrick est toujours dans l'aide et le partage

RyuAutodidacte · 14 Juin 2023

Re @patricktoulon ,

Voilà le zip en question fais sur Mac, peux tu voir ce qu'il ne va pas avec le zip ??
si on peut trouver une différence entre le zip PC et le zip Mac
j'ai testé de le remettre en xlsm sur Mac, mais à l'ouverture avec Excel ce n'est pas ok
Est ce que le zip PC à besoin d'un nomenclature aussi ou autres …?

patricktoulon · 14 Juin 2023

re
pour répondre a @ChTi160 dans les premières pages tu trouvera le module compilateur
version basique
il prend un code xml et en fait un fichier XL avec le ruban
pour répondre a ryu
non j’utilise pas de tab ou de vbnewline comme je te l'ai dit c'est la fonction de compilation et de streamer fichier qui crée le xml intenté
pour info si tu regarde le code de la fonction dans le module de compilation
tu y trouvera l'ordre d'indenter "Indent=True"

VB:

'enregistrer le xml  au format utf-8 et indenté
Public Sub SaveFormatDocToFileXL(ByVal doc, ByVal FileName As String)
    Dim rdrdom As Object, StreamFormaté As Object, wtrFormatted As Object

    Set rdrdom = CreateObject("MSXML2.SAXXMLReader.6.0")
    Set StreamFormaté = CreateObject("ADODB.Stream")
    Set wtrFormatted = CreateObject("MSXML2.MXXMLWriter")

    With StreamFormaté
        .Open
        .Type = 1    'adTypeBinary
        With wtrFormatted
            .omitXMLDeclaration = False
            .standalone = True
            .byteOrderMark = False    'If not set (even to False) then
            '.encoding is ignored.
            .Encoding = "utf-8"    'Even if .byteOrderMark = True
            'UTF-8 never gets a BOM.
            .indent = True
            .output = StreamFormaté
            With rdrdom
                Set .contentHandler = wtrFormatted
                Set .dtdHandler = wtrFormatted
                Set .errorHandler = wtrFormatted
                .putProperty "http://xml.org/sax/properties/lexical-handler", wtrFormatted
                .putProperty "http://xml.org/sax/properties/declaration-handler", wtrFormatted
                .Parse doc
            End With
        End With
        If Dir(FileName) <> "" Then Kill FileName
        .SaveToFile FileName
        .Close
    End With
    Set rdrdom = Nothing
    Set StreamFormaté = Nothing
    Set wtrFormatted = Nothing
End Sub

patricktoulon · 14 Juin 2023

re
RYU
maintenant si tu y tiens je peux te faire une fonction en string pour indenter ton code xml
mais toujours pour windows car il me faut un domdocument contenant la hiérarchie
sinon ben ca va pas être de la tarte encore une fois sans avoir de hiérarchie a analyser

patricktoulon · 14 Juin 2023

re
Ryu
ton projet fonctionne

patricktoulon · 14 Juin 2023

j'ai retrouvé ma vielle fonction qui n'enregistre pas mais te donne le code indenté

VB:

Sub test()
MsgBox IndenterXMLCode("<customUI><ribbon><tabs><tab><group><button></button></group></tab></tabs></ribbon></customUI>")
End Sub

'version 2 en memoire
'attention enleve l'instruction de pressing
Public Function IndenterXMLCode(vDomOrString As Variant) As String
    Dim XMLWriter As Object    ' MSXML2.MXXMLWriter

    On Error GoTo QH
    Set XMLWriter = CreateObject("MSXML2.MXXMLWriter")
    XMLWriter.indent = True    'ajoute l'attribut indent
    'XMLWriter.byteOrderMark = False
    'XMLWriter.Encoding = "UTF-8"    'encoding process ne fonctionne pas
    'alors on la supprime
    XMLWriter.omitXMLDeclaration = True    'supprime la declaration processing
    With CreateObject("MSXML2.SAXXMLReader")
        Set .contentHandler = XMLWriter
        '--- keep CDATA elements
        '.putProperty "http://xml.org/sax/properties/lexical-handler", XMLWriter
        '.putProperty "http://xml.org/sax/properties/declaration-handler", XMLWriter    'ne fonctionne pas non plus
        .Parse vDomOrString
    End With
    '--- success
    IndenterXMLCode = XMLWriter.output

    'essaie de faire un replace mais fonctionne pas ca supprime carrément l'instruction encoding dans l'entete
    'IndenterXMLCode = Replace(XMLWriter.output, "UTF-16", "UTF-8")
    Exit Function
QH:
End Function

Usine à gaz · 14 Juin 2023

patricktoulon à dit:

j'ai retrouvé ma vielle fonction qui n'enregistre pas mais te donne le code indenté

VB:

Sub test()
MsgBox IndenterXMLCode("<customUI><ribbon><tabs><tab><group><button></button></group></tab></tabs></ribbon></customUI>")
End Sub

'version 2 en memoire
'attention enleve l'instruction de pressing
Public Function IndenterXMLCode(vDomOrString As Variant) As String
    Dim XMLWriter As Object    ' MSXML2.MXXMLWriter

    On Error GoTo QH
    Set XMLWriter = CreateObject("MSXML2.MXXMLWriter")
    XMLWriter.indent = True    'ajoute l'attribut indent
    'XMLWriter.byteOrderMark = False
    'XMLWriter.Encoding = "UTF-8"    'encoding process ne fonctionne pas
    'alors on la supprime
    XMLWriter.omitXMLDeclaration = True    'supprime la declaration processing
    With CreateObject("MSXML2.SAXXMLReader")
        Set .contentHandler = XMLWriter
        '--- keep CDATA elements
        '.putProperty "http://xml.org/sax/properties/lexical-handler", XMLWriter
        '.putProperty "http://xml.org/sax/properties/declaration-handler", XMLWriter    'ne fonctionne pas non plus
        .Parse vDomOrString
    End With
    '--- success
    IndenterXMLCode = XMLWriter.output

    'essaie de faire un replace mais fonctionne pas ca supprime carrément l'instruction encoding dans l'entete
    'IndenterXMLCode = Replace(XMLWriter.output, "UTF-16", "UTF-8")
    Exit Function
QH:
End Function

comme koi : entre vieux ... lol 😛

patricktoulon · 14 Juin 2023

re
bon ben c'est fini
l'app est entièrement opérationnelle
tout a été vérifié, le validateur xml fonctionne
reste à faire la présentation et le mode d'emploi

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

RyuAutodidacte

XLDnaute Impliqué

patricktoulon

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

Usine à gaz

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

RyuAutodidacte

XLDnaute Impliqué

RyuAutodidacte

XLDnaute Impliqué

Pièces jointes

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

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 Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Impliqué

XLDnaute Impliqué

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Privacy & Transparency

Privacy & Transparency