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

[RyuAutodidacte]

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 :

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]

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]

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

 

[RyuAutodidacte]

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]

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]

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]

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]

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]

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

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]

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]

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"

'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]

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]

re
Ryu
ton projet fonctionne

 

[patricktoulon]

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

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]

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

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]

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