XL 2016 XLSX vers du XML

[Arthur.clb]

Bonjour le forum !
Après deux jours passés là-dessus, vous êtes mon ultime solution ! On m'a confié pour missions de faire en sorte que mes données Excel sortent sous le bon format en XML. J'ai essayé beaucoup de méthodes, mais en vain, je n'arrive pas à faire correspondre mon mapping XML avec mon Excel, je ne maîtrise pas du tout le XML ou HTML donc je galère. Je sollicite donc toute votre aide, qui j'espère me sera précieuse. Je vous joins donc mon Excel avec le résultat que l'on doit obtenir en XML :

Merci par avance de votre aide,
Arthur COLBOC

 

[patricktoulon]

bonjour
le xml n'a rien a voir avec le fichier excel
on ne retrouve pas les intitulés ni les valeurs
donne nous un exemple de résultat xml conforme au fichier excel et on verra
mais bon si tu a aucune connaissances en xml on est mal barré
ici c'est un forum d'entraide pas une source de code prêt a l'emploi

autant pour moi on les retrouve a la fin
bon ben ça fait un sacré entête de balise ca

 

[patricktoulon]

re
tien s je t'ai démarré a toi de continuer

Sub test()
    Dim oXML As Object
         Set oXML = CreateObject("MSXML2.DOMDocument")

    Set oNode = oXML.createProcessingInstruction("xml", "version=""1.0"" encoding=""ISO-8859-1""")
    oXML.appendchild oNode

    Set comm = oXML.createComment("Sample XML file generated by patricktoulonMacro")
    oXML.appendchild (comm)

    Set m = oXML.createelement("Mouvements-Balances")
    oXML.appendchild m

    Set p = oXML.createelement("Periode-taxation")
    m.appendchild p

    Set mois = oXML.createelement("mois")
    p.appendchild mois: mois.Text = [A2].Value


    Set an = oXML.createelement("annee")
    p.appendchild an: an.Text = [b2].Value

    Set ide = oXML.createelement("identification-redevable")
    m.appendchild ide: ide.Text = [b4].Value

    Set ds = oXML.createelement("droit-suspendus")
    m.appendchild ds:

    For i = 8 To Range("A" & Rows.Count).End(xlUp).Row
        Set produit = oXML.createelement("Produit")
        ds.appendchild produit:

        Set libper = oXML.createelement("libelle-personnalise")
        produit.appendchild libper: libper.Text = Cells(i, "a").Value

        Set libfisc = oXML.createelement("libelle-personnalise")
        produit.appendchild libfisc: libfisc.Text = Cells(i, "b").Value


        'etc... etc...
        'tu n'a qu'a continuer ici!!! selon le principe que j'ai démarré pour toute les cellule de la ligne (i)
         'blablabla
         'blablabla
Next



 

     oXML.Save Environ("userprofile") & "\DeskTop\testxml.xml"    ' le fichier va sur le bureau
End Sub

le fichier xml se retrouve sur le bureau