Discussion :

[mattchoco]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Salut,

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

[mattchoco]

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

peux tu me dire ce que signifie : Print #fic,

[Invité]

Ça veut dire:

Print -> écrire
#fic, -> dans le fichier '#fic'
"<?xml version=""1.0"" encoding=""ISO-8859-1""?>" -> Le texte suivant

[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..

[Invité]

Fais voir le bout de code qui bloque.

[mattchoco]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Ça devrait mieux se passer comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #fic, "    <info1>" & Range(a1).Value & "</info1>"

[mattchoco]

ça ne tourne pas chez moi erreur 1004,
la methode range de l'objet _global a échoué.

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Print #fic, "    <info1>" & [A1].Value & "</info1>"

[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?

[Invité]

En remplaçant 'ISO-8859-1' par 'UTF-8' ça devrait fonctionner.

[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.