Génération XML dynamique & trame XSD

Version imprimable

Bonjour tout le monde,

aujourd'hui petit problème de génération..

Je souhaite créer un fichier XML structuré. (pour lequel j'ai effectivement une trame XSD si ça peux servir)

Ce fichier peut être généré une centaine de fois pour des produits différents.

Ces produits ont leur caractéristiques renseignés chacun dans un classeur excel différent.

J'ai donc ma trame de code xml, et mes valeurs à implémenter dans un excel connu.

Comment puis je, avec une macro VBA, générer un fichier XML reprenant les valeurs présentes dans mon fichier excel de données?

est il possible dans un code macro d'écrire en dur tout mes codes de ma trame XML avec des liens à l'intérieur?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub(test) Dim chemin As String Dim MonfichierXML as string MonfichierXML= 'trame xml <prd:ProductT> <prd:ProductId=range.(A1)> <prd:ProductValue ProductValueId="range.(B7)> ProductAttributeProductTypeId="tutu1"> <prd:ListValue>range.(C41)></prd:></prd:ProductTypeAttributeValue> chemin = "C:\Users\Desktop\" Open chemin & "testexport.xml" For Output As #1 Print #1, Worksheets("code").MonfichierXML Close End sub
le code ci dessus est juste pour illustrer, il n'est pas fonctionnel. Est ce que ce type de code est possible?

D'avance merci pour vos contributions

21/10/2013, 15h05
Invité

Salut,

Voir le lien ci-dessous pour la gestion des fichiers '*.xml':
http://arkham46.developpez.com/artic...ge=page_4#L5-A
21/10/2013, 15h54
mattchoco

ha génial ! je vais essayer ça de suite. merci :)

peux tu me dire ce que signifie : Print #fic,
21/10/2013, 16h09
Invité

Ça veut dire:

Print -> écrire
#fic, -> dans le fichier '#fic'
"<?xml version=""1.0"" encoding=""ISO-8859-1""?>" -> Le texte suivant
21/10/2013, 16h50
mattchoco

ok, donc l'incrémentation ligne après ligne est implicite dans ce code?

[EDIT]

pourquoi... ne puis je pas mettre une valeur de cellule à la place de "test élément 1" par exemple.

si je met une ligne de type range().value ça bug..
21/10/2013, 17h06
Invité

Fais voir le bout de code qui bloque.

oc,

dans ce bout de code , j'aimerais qu'il récupère la valeur de la cellule A1..
comment faudrait il l'écrire?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Function CreateXMLFileVBA()
Dim fic As Integer
 
 
 
fic = FreeFile
Open "C:\XMLFileVBA.xml" For Output As #fic
Print #fic, "<?xml version=""1.0"" encoding=""ISO-8859-1""?>"
Print #fic, "<racine>"
Print #fic, "    <info1>"Range(A1).Value"</info1>"
Print #fic, "    <info2>test élément 2</info1>"
Print #fic, "    <info>"
Print #fic, "        <subinfo1>test sous-élément 1</subinfo1>"""
Print #fic, "        <subinfo2>test sous-élément 2</subinfo2>"
Print #fic, "    </info>"
Print #fic, "</racine>"
Close #fic
End Function

21/10/2013, 17h11
Invité

Ça devrait mieux se passer comme ça:

Code:

Print #fic, " <info1>" & Range(a1).Value & "</info1>"
21/10/2013, 17h15
mattchoco

ça ne tourne pas chez moi erreur 1004,
la methode range de l'objet _global a échoué.
21/10/2013, 17h16
Invité

Si c'est la valeur de la cellule A1 qui t’intéresse alors:

Code:

Print #fic, " <info1>" & [A1].Value & "</info1>"
21/10/2013, 17h23
mattchoco

et hop ça tourne ! merci :)

le succès était dans les guillemets ! merci encore.

petite question complémentaire, comment fait on pour maitriser la norme d'encoding? si je veux la passer en UTF-8 par exemple.
c'est juste ma façon d'écrire les lignes de codes qui changera ça? ou est ce plus général?
21/10/2013, 17h37
Invité

En remplaçant 'ISO-8859-1' par 'UTF-8' ça devrait fonctionner.
21/10/2013, 17h56
mattchoco

si c'est écris en dur je pense pas qu'il y ai une grande interaction avec le contenu. on va partir comme ça dans un premier temps.

un grand merci en tout cas.