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]

un simple oubli
dans ma fermeture

 If " customui tabs tab group box buttonGroup menu gallery " Like "* " & e.Tagname & " *" Then Debug.Print String(e.indent, vbTab) & "</" & e.Tagname & ">"

 

[patricktoulon]

Incroyable en voulant m'amuser
j'ai trouvé une méthode pour créer du xml avec MAC sans domdocument et valide
et je peux même insérer dans le code le control de validité du schemas customUI
ce que je fait tu le trouve nul part
on trouve bien quelques trucs ici et là avec un module classe mais au dela de 2 étages ils déraillent tous
je suis xptdr je fais ça en 6 lignes d'appel

Alors tu veux apprendre comment on fait ou tu veux continuer avec ton module classe ?

 

[RyuAutodidacte]

Incroyable en voulant m'amuser
j'ai trouvé une méthode pour créer du xml avec MAC sans domdocument et valide
et je peux même insérer dans le code le control de validité du schemas customUI
ce que je fait tu le trouve nul part
on trouve bien quelques trucs ici et là avec un module classe mais au dela de 2 étages ils déraillent tous
je suis xptdr je fais ça en 6 lignes d'appel

Alors tu veux apprendre comment on fait ou tu veux continuer avec ton module classe ?

Tu me connais … tu sais que j'adore apprendre … la question ne se pose même pas
En plus c'est plus ton domaine que le mien ce sujet
et chaque apprentissage permet de faire évoluer nos futurs code
Ca n'empêche pas que je continuerai le module de classe car j'aimerai à apprendre à en faire aussi

 

[patricktoulon]

hoh ben tu sais les classe je pourrais en parler des heures en c je code que comme ca
en attendant ,regarde ce que je te prépare

je vais essayer de te faire un exemple simple pour que tu comprenne la mécanique

 

[RyuAutodidacte]

hoh ben tu sais les classe je pourrais en parler des heures en c je code que comme ca
en attendant ,regarde ce que je te prépare
Regarde la pièce jointe 1174089


je vais essayer de te faire un exemple simple pour que tu comprenne la mécanique

C'est marrant car cette idée m'était passé par la tête

 

[patricktoulon]

tiens encore mieux
il y a un menu de départ maintenant

avec la version 4.9.9 je le fait en moins de 2 minutes maintenant

je te le fait dans le ruban comme ca il n'y aura pas de userform
ca sera le creatorRibbon Z for MAC

 

[patricktoulon]

une question
est ce que l'on peut mettre des shapes (formes automatiques) des rectangle dans les feuilles par vba avec mac ????????

 

[RyuAutodidacte]

une question
est ce que l'on peut mettre des shapes (formes automatiques) des rectangle dans les feuilles par vba avec mac ????????

il me semble …

 

[patricktoulon]

ok le creatorRibbonZ imageMso V One commencera comme ca
je ferais de la couleur et du design après
je crée le xml et je lance le visual avec des shapes sur la feuille
un peu comme dans mon créator mais sur feuille

 

[RyuAutodidacte]

ok le creatorRibbonZ imageMso V One commencera comme ca
je ferais de la couleur et du design après
je crée le xml et je lance le visual avec des shapes sur la feuille
un peu comme dans mon créator mais sur feuille

Regarde la pièce jointe 1174096

Ha oui qd même tu vas loin jusqu'à une représentation graphique

 

[patricktoulon]

re
je vais arrêter là pour ce soir
j'ai avancé comme une fusée

 

[RyuAutodidacte]

re
je vais arrêter là pour ce soir
j'ai avancé comme une fusée
Regarde la pièce jointe 1174097

ça m'impressionne, en tout cas j'avais raison que c'était possible
si ton 1er Ribbon tu l'as commencé en 2019 si je me trompe pas t'as acquis l'experience qu'il fallait pour bien le maitriser, je te tire mon chapeau

 

[patricktoulon]

re
hoh ben le xml dans sa globalite je le pratique depuis bien plus longtemps que ça

quand je travaillais en vb6 ou vbs je fesais déjà des fiches de paramètres pour mes petites app en HTA
oui au bas mot une bonne 20 aines d'années un peu plus même

 

[patricktoulon]

j'essaie de te faire un exemple vite fait de mécanique

 

[patricktoulon]

allez voilà la mécanique

Type Xmlelement
    id As String
    label As String
    indent As Long
    parentId As String
    TagName As String
    vu As Boolean
End Type
Public AllElements() As Xmlelement
Dim element As Xmlelement

Sub init()
    ReDim Preserve AllElements(0 To 0)
End Sub

Function Appendchild(parent As Xmlelement, enfant As Xmlelement)    'attribut d'affiliation
    enfant.parentId = parent.id
End Function

Function createElement(TagName) As Xmlelement    'creation d'un element(tout type argument "Tagname" pour le type )
    Dim elem As Xmlelement
    elem.TagName = TagName
    ReDim Preserve AllElements(UBound(AllElements) + 1): AllElements(UBound(AllElements)) = elem: createElement = AllElements(UBound(AllElements))
End Function

Function GetelementById(idx As String) As Xmlelement    'fonction pour rechercher un element portant un id précis(utile pour plus tard quand on construire dynamico
    For i = 1 To UBound(AllElements)
        If AllElements(i).id = idx Then GetelementById = AllElements(i): Exit Function
    Next
End Function

Function getValidId(TagName)    ' fonction pour determiner un id valide et non utilisé(variante de mon creator adapté pour la circonstance)
    Dim e&, x As Boolean, i&
    For e = 1 To 1000
        vid = TagName & "_" & e
        x = False
        For i = 0 To UBound(AllElements)
            If AllElements(i).id = vid Then x = True: Exit For
        Next
        If x = False Then getValidId = vid: Exit For
    Next
End Function
Sub test()
    init
    Dim ParentX As Xmlelement
    'creation du père de tous ( le patron)
    element = createElement("père")
    With element
        .id = getValidId(.TagName)
        .indent = 0
        .label = "Robert"
        ParentX = GetelementById("")    'le père n'a pas de parent
        Appendchild ParentX, element
        .indent = ParentX.indent + 1
        AllElements(UBound(AllElements)) = element
    End With


    'maintenant  je vais créer le fils
    element = createElement("fils")
    With element
        .id = getValidId(.TagName)
        .label = "jean"
        ParentX = GetelementById("père_1")    'je choisi le parent a qui je veux l'affilier
        Appendchild ParentX, element
        .indent = ParentX.indent + 1
        AllElements(UBound(AllElements)) = element
    End With


    'maintenant  je vais créer le fils2
    element = createElement("fils")
    With element
        .id = getValidId(.TagName)
        .label = "Luc"
        ParentX = GetelementById("père_1")    'je choisi le parent a qui je veux l'affilier
        Appendchild ParentX, element
        .indent = ParentX.indent + 1
        AllElements(UBound(AllElements)) = element
    End With


    'maintenant pour l'exemple je vais créer le petit fils qui sera le fils du fils 1
    'creation du petit fils
    element = createElement("petitfils")
    With element
        .id = getValidId(.TagName)
        .label = "kevin"
        ParentX = GetelementById("fils_1")    'je choisi le parent a qui je veux l'affilier
        .indent = ParentX.indent + 1
        Appendchild ParentX, element
        AllElements(UBound(AllElements)) = element
    End With

    'la voiture du  du fils 1
    'creation du petit fils
    element = createElement("voiture")
    With element
        .id = getValidId(.TagName)
        .label = "Renault"
        ParentX = GetelementById("fils_1")    ' je choisi a qui est la voiture
        .indent = ParentX.indent + 1
        Appendchild ParentX, element
        AllElements(UBound(AllElements)) = element
    End With


    lecture
End Sub
Sub lecture()
    For i = 1 To UBound(AllElements)
        Dim e As Xmlelement
        e = AllElements(i)
        Debug.Print "<" & e.TagName & " id=""" & e.id & """" & " label=""" & e.label & """" & _
                  " parentID=""" & e.parentId & """" & " indent=""" & e.indent & """"

    Next
    Debug.Print "***************************************"
    GenerateCodXmL
End Sub

Function GenerateCodXmL(Optional i As Long = 0)
    Dim e As Xmlelement, a&
    Static codeXml As String
    e = AllElements(i)
    If i = 0 Then PartCod = "": codeXml = ""
    If Not e.vu Then
        If " voiture " Like "* " & e.TagName & " *" Then fin = "/>" Else fin = ">"
        PartCod = String(e.indent, vbTab) & "<" & e.TagName
        PartCod = PartCod & " id = """ & e.id & """"""
        If e.label <> "" Then PartCod = PartCod & " label=""" & e.label & """" & fin


        PartCod = PartCod & fin
        'codeXml = codeXml & PartCod & vbCrLf
        Debug.Print PartCod
        With AllElements(i): .vu = True: End With
    End If
    For a = i + 1 To UBound(AllElements)
        If AllElements(a).vu = False Then
            If AllElements(a).parentId = e.id Then
                GenerateCodXmL a
            End If
        End If
    Next
    If " père " Like "* " & e.TagName & " *" Then
        Debug.Print String(e.indent, vbTab) & "</" & e.TagName & ">"
        'codeXml = codeXml & String(e.indent, vbTab) & "</" & e.TagName & ">" & vbCrLf
    End If
    If i = 0 And codeXml <> "" Then Debug.Print codeXml

    GenerateCodXmL = codeXml
End Function