Sub convertxml()
Dim xmldoc As Object, oCreation As Object, Lig&, Racine As Object, tableau As Object, col As Object, cel As Object
Set xmldoc = CreateObject("Microsoft.XMLDOM") 'creation
Set Racine = xmldoc.createelement(ActiveSheet.Name) 'ajout de la racine "kml"
xmldoc.appendchild Racine 'insertion dans le document (append) de kml
Set oCreation = xmldoc.createProcessingInstruction("xml", "version='1.0' encoding='UTF-8'") 'creation de l'entete du process
xmldoc.InsertBefore oCreation, xmldoc.ChildNodes.Item(0) 'insertion parametre process
Set tableau = xmldoc.createelement("Tableau3") 'ajout de la racine "kml"
Racine.appendchild tableau
With Feuil1.ListObjects("Tableau3")
With .HeaderRowRange
For c = 1 To .Cells.Count
Set col = xmldoc.createelement(.Cells(c).Value): tableau.appendchild col 'insertion de la balise document dans la balise kml
With Feuil1.ListObjects("Tableau3").DataBodyRange
For Lig = 1 To .Rows.Count
Set cel = xmldoc.createelement(.Cells(Lig, c).Address(0, 0)): cel.Text = .Cells(Lig, c).Text: col.appendchild cel 'insertion de la balise document dans la balise kml
Next
End With
Next
End With
End With
MsgBox Replace(xmldoc.XML, "><", ">" & vbCrLf & "<")
End Sub
<periode-taxation>
<mois>12</mois>
<annee>2019</annee>
</periode-taxation>
<identification-redevable>FR015001f1237</identification-redevable>
-<droits-suspendus>
-<produit>
<libelle-personnalise>09017352186</libelle-personnalise>
<libelle-fiscal>ALCOOL_AUTRE_SUP_18</libelle-fiscal>
<tav>40</tav>
ns1:mois | ns1:annee | ns1:identification-redevable | ns1:libelle-personnalise | ns1:libelle-fiscal | ns1:tav | ns1:stock-debut-periode | ns1:entree-droits-suspendus | ns1:sorties-avec-paiement-annee-courante | ns1:sorties-definitives | ns1:stock-fin-periode |
<produits>
<produit1>
<identité_redevable>FR015050F4567</identité_redevable>
<libelé_perso>Produit1<libelé_perso>
<libélé_fiscal>ALCOOL_AUTRE_SUP_18</libélé_fiscal>
etc...etc...
</Produit1>
<Produit2>
idem pour lui
</produit2>
etc...etc....
</Produits>
non! pas pour les identité redevable elles ne sont pas identiquesles mois, années et identification-redevable seront les mêmes pour chacune des lignes
bonsoirRe
J'ai regardé les deux fichier généré par d’autres personnes et à chaque fois en tout cas sur la conversion excel les lignes des 3 premières colonnes sont bien identiques
ca peut simplifier les choses alors effectivement mais pour que cela soit cohérent une des trois doit etre le parent de tout dans le xmlpeux te certifier que les lignes des 3 premières colonnes sont et devrons êtres avec les mêmes données