XL 2013 petit problème de caractère a la création du xml

[patricktoulon]

bonjour à tous
j'ai un petit soucis que je n'arrive pas a résoudre
a la création du xml (encodé en utf-8/utf-16) le caractère "&" se transforme en "&"
donc la chaine 
 se transforme en 

quelqu'un aurait une idée ?(pour garder "
")

Sub test()
Dim DocXml, balise, enfant, oCreation
Set DocXml = CreateObject("Microsoft.XMLDOM")    'creation
    Set balise = DocXml.appendchild(DocXml.createelement("balise"))
     balise.setAttribute "groupage", "do not"
    balise.setAttribute ("id"), "provix1"
    Set oCreation = DocXml.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8"" standalone=""yes""")    'creation de l'entete du process
    DocXml.InsertBefore oCreation, DocXml.ChildNodes.Item(0)    'insertion parametre process


    Set enfant = DocXml.createelement("enfant"): enfant.setAttribute "commentaire", "juste un test 
 de commentaire": enfant.setAttribute ("id"), "provix2"

    balise.appendchild (enfant)
SaveFormatDocToFileXL DocXml, ThisWorkbook.Path & "\exoamp.xml"
End Sub
'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 = True    '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

je me casse la tête depuis hier avec ça

 

[TooFatBoy]

où déjà dit ? car si c'est dans le module de Robert je ne l'ai pas ouvert

C'était juste après #1, mais comme ça a été ignoré, probablement car non compris comme on peut le voir en #5, du coup j'ai supprimé.

mais non cette méthode d'échappement ne peut fonctionner en XML

T'es sûr que c'est en XML le pb ?

Autre question : t'es sûr que c'est &#13 qu'il te faut écrire ?

 

[dysorthographie]

Et si tu mets %26

 

[fanch55]

Salut le forum, @patricktoulon
Après m'être cassé les dents toute l'après-midi sur les escaped et autre xmlwriter sans succès (et en testant le supertip sur Office Ribbon Editor ),
je suis tombé sur ce site

Writing XML file with VBA

I need to write a quite large, readable xml file with vba for my work, for which I store the data from several other files in an array. I can't manage to get the individual elements in the right or...

stackoverflow.com

dont j'ai pompé dans la première réponse tous les codes de Classe ( ce qui marche n'est pas à refaire ... )
et j'en suis donc arrivé à ce classeur qui semble donner une solution :

 

[patricktoulon]

RE
Bonjour @fanch55
perso j'ai une classe que j'ai fait pour ryuautodidacte qui ressemble à ça mais pour le customUI
qui est un peu plus compliqué
mais tu a raison ces classes fonctionnent en tout cas elle en ont l'air

 

[patricktoulon]

et si j'applique cette nouvelle fonction dans creatorRibbonX Allimage
et je vais certainement appliquer les modifs sur la version imageMso

 

[fanch55]

Merci Patrick pour ces explications très claires .

Pour ceux qui pensent avoir trouvé un endroit où loger un mode d'emploi ,
le nombre de lignes du supertip est dépendant de l'écran (pas de la fenêtre)

et la longueur max limité à 1024 cars ( le "
" compte déjà pour 5 cars ...)
[et de toute zone de texte par ailleurs en standard tel que décrit ci-dessous ]

 

[fanch55]

Perso, je construis plutôt le supertip dans le code via le call back,
cela me permet un supertip approprié à un contexte, le retour à la ligne se faisant par un vblf:

Sub Get_Supertip(control As IRibbonControl, ByRef returnedVal)
Dim Rval As String, Line As String, I As Integer
    For I = 1 To 10: Line = Line & "----+----|": Next
    For I = 1 To 10
        If Rval = "" Then Rval = Line Else Rval = Rval & vbLf & Line
    Next
    If Len(Rval) > 1024 Then returnedVal = "Overflow, length=" & Len(Rval) Else returnedVal = Rval
End Sub

 

[patricktoulon]

re
et oui mais là on est sur du dynamique, comme tu dis c'est via le callback
comme il y en aura un a tous ca fait du callback a gogo là

 

[patricktoulon]

alors en ecriture ca va impec par contre en relecture l'orsque je réouvrait le projet
le "
" ressortait comme des saut de ligne donc à la re sauvegarde je perdait tout repère
car les saut de ligne dans le customui c'est chr(32)+ un caractère inconnu+chr(10) donc pour le reconvertir c’était compliqué
donc je met en creation un"|" a la place des sauts de ligne je sauve avec l'ancienne fonction le projet
et quand je crée le fichier excel avec le customUI.xml final je le crée avec la fonction précédemment citée
terminé plus de problème de conversion