XL 2013 Mappage XML d'un fichier excel

[erwanhavre]

Bonjour à tous je suis dans une impasse et j'ai besoin de vous
Peut être que cela va paraître simple pour certain d'entre vous mais voila mon pb
Je dois exporter les données d'une feuille excel vers un, fichier .XML
Le problème est simple je suis une quiche dans ce domaine ...
Ce que j'ai fait :
j'ai pris un fichier XML similaire à ce dont j'ai besoin ..
via l'onglet développeur j'ai importer ce fichier
j'y ai modifier le contenu des lignes mais laissé à l'identique les entête de colonnes
mais au moment d'exporter ou d'enregistrer mon fichier pour exporter celui-ci au format .XML excel deviens vulgaire et me dit des gros mots du style:
"Données dénormalisées"
ou
"les mappages XML de ce classeur ne sont pas exportables ... "

svp que dois-je faire pour que cela fonctionne svp
Je suis dans la m**** là lol
je vous joins mon fichier
Merci à ceux qui y arriverons ...

 

[patricktoulon]

re
Bonjour
non j'en ai pas vraiment besoins j'ai l'exemple
je te ferais ca a temps perdu

 

[erwanhavre]

Top merci beaucoup

 

[patricktoulon]

re
tiens en attendant regarde ça
je precise que j'ai mis la meme identité redevable a tes 3 lignes puisque c'est ce que tu a dis
donc l'identité redevable est parent de tout les produits dans le xml
chaque produits est dans une balise "produit"
et pour finir apercu avec IE

Sub convertxml()
    Dim xmldoc As Object, oCreation As Object, lig&, Racine As Object, tableau As Object, c&, a As Object, m As Object
    Dim head As Range, rang As Range, period As Object, X&, Fichier$
    Set xmldoc = CreateObject("Microsoft.XMLDOM")    'creation
    Set Racine = xmldoc.createelement("mouvements-balances")  'ajout de la racine "kml"
    Racine.setattribute "xmlns", "http://douane.finances.gouv.fr/app/ciel/dtiplus/v1"
    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 period = xmldoc.createelement("periode-taxation")  'ajout de la racine "kml"
    Racine.appendchild period    'insertion dans le document (append) de kml
    Set head = Feuil1.ListObjects("Tableau3").HeaderRowRange
    Set structab = Feuil1.ListObjects("Tableau3").DataBodyRange
    Set m = xmldoc.createelement("mois"): m.Text = structab.Cells(1, 1).Text: period.appendchild m
    Set a = xmldoc.createelement("Annee"): a.Text = structab.Cells(1, 2).Text: period.appendchild a


    Set identredev = xmldoc.createelement("identification-redevable"): identredev.Text = structab.Cells(1, 3).Text
    Racine.appendchild identredev
    Set head = Feuil1.ListObjects("Tableau3").HeaderRowRange
    Set rang = Feuil1.ListObjects("Tableau3").DataBodyRange
    For lig = 1 To rang.Cells(rang.Cells.Count).Row - 1

        Set prod = xmldoc.createelement("produit"):
        identredev.appendchild prod

        For c = 4 To head.Cells(rang.Cells.Count).Column
            Set bal = xmldoc.createelement(Replace(head.Cells(c).Value, "ns1:", "")): bal.Text = rang.Cells(lig, c).Text
            prod.appendchild bal
        Next


    Next
    Fichier = Environ("userprofile") & "\Desktop\sortie.xml"
    X = FreeFile
    Open Fichier For Output As #X: Print #X, Replace(xmldoc.XML, "><", ">" & vbCrLf & "<"): Close #X
    With CreateObject("internetexplorer.application")
        .navigate Fichier

        .Visible = True
    End With
    Debug.Print Replace(xmldoc.XML, "><", ">" & vbCrLf & "<")
End Sub

 

[erwanhavre]

ça m'a l'air top ça ..
là je ne peux pas faire le test d'intégration dans l’immédiat mais promis je reviens vers toi dès que je pourrai
Merciiiii

 

[erwanhavre]

@patricktoulon ? je dois me replonger accepte tu de m'aider ?

 

[patricktoulon]

d'Abords bonsoir erwanhavre
1 an quasiment
allons donc voila qu'il nous refait une crise d'xmlite aiguë
va y annonce la couleur

 

[erwanhavre]

Bonsoir Patrick
heureux que tu sois encore sur le forum lol
La couleur n'a pas changé depuis un an, j'utilise mon fichier excel qui est maintenant bien rodé pour les entrées et sorties mais me reste cette fameuse manip d'exporter mon fichier Excel vers un xml car je me coltine chaque article a renseigner à la mimine ...
j'ai possibilité de faire des essai d'intégration donc ... on peut y retourner
le format de fichier est identique

 

[patricktoulon]

ok demain aprem je me remet dans le bain
il me faut un fichier excel et comment tu le veux en sortie
bref toute les donnée pour commencer a travailler

 

[erwanhavre]

Patrick est que l'on passe en mp notre sujet n'a pas l'air d'intéresser la foule non ?

 

[patricktoulon]

Bonsoir @erwanhavre
non sauf données confidentielles
a peut servir a d'autres
donne une feuille avec ton tableau et un xml comme tu voudrais qu'il soit

 

[erwanhavre]

Bonsoir voici les fichier du fichier Excel j'aimerai obtenir le fichier XML
Merci beaucoup d'avance

 

[patricktoulon]

bonjour erwanhavre
je ne constate aucune difficulté a reproduire ce que j'avais déjà fait
aujourd'hui 1 an après tu devrais savoir faire
ça me mine de voir que tu n'a pas pris la peine d'apprendre (et tu a eu le temps)

 

[erwanhavre]

Bonsoir Patrick
honte à moi ... effectivement je n'avais pas réessayé .. désolé
Bon je viens de l'adapter à mon projet et la macro bloque à cet endroit voir pj

 

[patricktoulon]

re
est tu sur du bon codename de la feuille?
est tu sur du nom du tableau ?

 

[erwanhavre]

Bien vu la feuil1 s'appelle en réalité feuil2 !! dans le code
Merciiiiiiiii
un seul mot BRAVO avec un an de retard encore désolé
Et surtout merci