Microsoft 365 Importation des rubans personnalisés

[Eric Dé]

Bonjour,

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Tout d’abord, je vous présente tous mes meilleurs vœux pour cette nouvelle année 2022.
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Suite à l'installation d'Office 365, j'ai voulu importer mes rubans personnalisés.
La procédure d'export fonctionne bien et je retrouve le fichier "Excel - Personnalisations.exportedUI" à l'endroit voulu.
En revanche, après avoir suivi la procédure d'importation, mes rubans ne changent pas et restent dans l'état initial !!

Auriez-vous des idées sur ce problème ?

Merci d'avance et bonne journée !
Éric

 

[TooFatBoy]

j'ai pour le html aussi
j'aime bien les codes indentés on y vois plus clair en cas d'erreur

De toute façon je n'ai rien d'autre à indenter.

Ce qui était vrai à l'époque est faux aujourd'hui : j'ai sauvegardé une page HTML de presque 700 ko, et ce fichier comporte 7911 lignes...
Certes, il y a pas mal de lignes vides, mais les autres lignes sont découpées n'importe comment !

Est-ce que tu as toujours ton code magique pour nettoyer le HTML ?
Est-ce qu'il fonctionne sur n'importe quel fichier HTML ?

Et enfin, question la plus importante pour moi : accepterais-tu de me fournir ce code magique ?

 

[patricktoulon]

bonjour @TooFatBoy
je regarderais dans mes archives
mais il y a des site comme beautify qui font ça en moins d'une seconde

en attendant voici celle que j'ai retrouvé (uniquement pour le html attention)elle fait partie de mon userform visionneur de code

Public Function HtmlCodeIndenter(code)
' version beta :
'by patricktoulon
    Dim I&, elem As Object, t, x&, Elements As Object, Nod As Object, pre As Object, Saut

    With CreateObject("htmlfile")
        .body.innerhtml = code:
        For Each elem In .all: elem.setattribute "indent", 0: Next:
        .body.setattribute "indent", 0

        Set Elements = .getelementsbytagname("*")
        For Each elem In Elements
            If I > 1 Then elem.setattribute "indent", Val(elem.parentelement.getattribute("indent")) + 1
            I = I + 1
        Next
        For Each elem In .body.all
            If elem.ChildNodes.Length > 1 Then
                For Each Nod In elem.ChildNodes
                    If Nod.NodeType = 3 Then
                        Set pre = .createelement("PRE"): pre.innerhtml = Replace(Nod.NodeValue, " ", " ")
                        pre.setattribute "indent", elem.getattribute("indent") + 1
                        elem.replacechild pre, Nod
                    End If
                Next
            End If
        Next

        Set Elements = .body.getelementsbytagname("*")
        For I = 0 To Elements.Length - 1
            If Elements(I).all.Length > 1 Or Elements(I).LastChild.NodeType = 1 Then
                Set Saut = .createtextnode("| indent=""" & Elements(I).getattribute("indent") & """")
                Elements(I).appendchild (Saut)
            End If
        Next
        code = Replace(.body.innerhtml, "><", ">" & vbCrLf & "<")
    End With

    code = Replace(Replace(code, "|", vbCrLf), vbCrLf & vbCrLf, vbCrLf)
    t = Split(code, vbCrLf)
    For I = 0 To UBound(t)
        If InStr(1, t(I), "indent=") > 0 Then
            x = Val(Trim(Split(t(I), "indent=""")(1)))
            If Trim(t(I)) <> "" Then t(I) = String(x - 2, vbTab) & t(I)
        End If
    Next
    code = Join(t, vbCrLf)
    I = 0
    Do While InStr(code, "indent=") > 0
        I = I + 1: code = Replace(code, " indent=" & Chr(34) & I & Chr(34), "")
    Loop
    code = Replace(Replace(code, "<PRE>", ""), "</PRE>", "")
    Do While InStr(code, vbCrLf & vbCrLf) > 0: code = Replace(code, vbCrLf & vbCrLf, vbCrLf): Loop
   'If Visual.SmallIndent Then code = Replace(code, vbTab, "      ")
    HtmlCodeIndenter = code
    'Debug.Print code

End Function

 

[TooFatBoy]

Merci !

Je vais regarder ça de suite.

 

[TooFatBoy]

il y a des site comme beautify qui font ça en moins d'une seconde

J'ai cherché sur le Net et j'ai trouvé codebeautify.org

C'est formidable : après être passé dans leur moulinette, le code est tout beau tout propre !
Au lieu des 7911 lignes, je n'en ai plus que... 22 904 lignes !

Bon, faut dire qu'il y a plein de scripts, donc c'est normal.
Mais au moins c'est bien indenté, je vais beaucoup plus facilement retrouver les informations que je veux extraire.


Merci encore !
Bon weekend



[edit]
Bon ben en fait... ce n'est pas du tout indenté correctement...
Il est tout moisi leur site.
[/edit]

 

[patricktoulon]

re
bonsoir
essaie avec ma fonction
sinon tu en a plusieurs beautifeur en ligne