Remplir plusieurs tableaux à partir d'un fichier XML

MarsVolta · 28/06/2007, 11h52

Bonjour à tous,

Voilà je rencontre une difficulté pour remplir plusieurs tableaux d'un document Word. cet à dire que sur les deux tableaux un seul se remplit convenablement

voilà mon code VB

Code xml :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'Spécification : charger les données dans le modèle
'Début
 
 
Private Sub cmdLoadData_Click()
 
    oWord.Selection.MoveDown wdLine, 0
    oWord.Selection.EndKey wdLine
    oWord.Selection.MoveRight wdCharacter
    oWord.Selection.TypeText parser.selectSingleNode("//COD").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//LONFIX").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//LONATT").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//NBRMNT").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//TAI").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//TYP").Text
 
 
    'Tableaux numéro 2
 
    oWord.Selection.MoveDown wdLine, 6
    oWord.Selection.EndKey wdLine
    oWord.Selection.MoveRight wdCharacter
    oWord.Selection.TypeText parser.selectSingleNode("//CO").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//LON").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//LONA").Text
 
    oWord.Selection.MoveDown wdLine
    oWord.Selection.TypeText parser.selectSingleNode("//NBR").Text
    End Sub
'Fin

Voilà le fichier XML

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" ?>
<EMAIL>
	<COD>essai</COD>
	<LONFIX>test</LONFIX>
	<LONATT>arbre</LONATT>
	<NBRMNT>film</NBRMNT>
	<TAI>essai</TAI>
	<TYP>essais</TYP>
	<CO>Ess</CO>
	<LON>Tes</LON>
	<LONA>Arbr</LONA>
	<NBR>Fil</NBR>
</EMAIL>

A savoir que les informations contenu dans COD, LONFIX, LONATT, NBRMNT, TAI, TYP doivent se trouver dans un 1er tableau et COD, LON, LONA, NBR dans un second tableau.

Le principe :

Le programme charge le fichier XML, ouvre word, ouvre un fichier .dot avec les tableaux et insère les données dans ces mêmes tableaux. De plus il faudrait qu'un client éventuel puisse choisir le modèle à remplir ainsi que les données qu'il veut afficher dans ce modèle. Encore une chose les données doivent être mises à jour automatiquement dans les différents modèles.

Merci d'avance beaucoup pour vos réponses.

Christophe

EDIT : Veuillez m'escusez j'ai posté dans la mauvaise section

Heureux-oli · 28/06/2007, 21h49

Pourquoi ouvrir et remplir un tableau avec du XML ?

Si tu fais un XSL, tu n'as pas besoin de te creuser plus.

Code xml :

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
25
26
27
28
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="2.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:fo="http://www.w3.org/1999/XSL/Format" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:fn="http://www.w3.org/2005/xpath-functions">
<xsl:template match="/">
<html>
	<head>
		<title></title>
	</head>
	<body>
<table border="1" cellspacing="0" cellpadding="3">
	<tbody>
		<tr bgcolor="#FFFF00">
			<td>Marque</td>
			<td>Modele</td>
			<td>Serie</td>
		</tr>
		<xsl:for-each select="Voiture">
		<tr>
			<td><xsl:value-of select="marque"/></td>
			<td><xsl:value-of select="modele"/></td>
			<td><xsl:value-of select="serie"/></td>
		</tr>
		</xsl:for-each>
	</tbody>
</table>	
	</body>
</html>
</xsl:template>
</xsl:stylesheet>

C'est un exemple de ce que peut faire du XSL,

Voilà le XML qui correspond

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<?xml version="1.0" encoding="UTF-8"?>
 
<?xml-stylesheet type="text/xsl" href="voiture.xsl"?>
 
<Voiture xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:noNamespaceSchemaLocation="C:\LOCALD~1\Forum\voiture.xsd">
	<marque>Renault</marque>
	<modele>Scenic</modele>
	<serie>Mer du Nord</serie>
	<cyl>1500</cyl>
	<carburant>Diesel</carburant>
	<km>30000</km>
	<datemiseencirculation>2006-02-14</datemiseencirculation>
</Voiture>

Code xml :

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
25
26
27
28
29
30
<?xml version="1.0" encoding="UTF-8"?>
<!-- edited with XMLSpy v2007 rel. 3 (http://www.altova.com) by Olivier Lebeau (Heureux-oli sur DVP) -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema" elementFormDefault="qualified" attributeFormDefault="unqualified">
	<xs:element name="Voiture">
		<xs:annotation>
			<xs:documentation>Comment describing your root element</xs:documentation>
		</xs:annotation>
		<xs:complexType>
			<xs:sequence>
				<xs:element name="marque" type="xs:string"/>
				<xs:element name="modele" type="xs:string"/>
				<xs:element name="serie" type="xs:string"/>
				<xs:element name="cyl">
					<xs:simpleType>
						<xs:restriction base="xs:string">
							<xs:maxLength value="4"/>
						</xs:restriction>
					</xs:simpleType>
				</xs:element>
				<xs:element name="carburant">
					<xs:simpleType>
						<xs:restriction base="xs:string"/>
					</xs:simpleType>
				</xs:element>
				<xs:element name="km" type="xs:int"/>
				<xs:element name="datemiseencirculation" type="xs:date"/>
			</xs:sequence>
		</xs:complexType>
	</xs:element>
</xs:schema>

Et le XSD

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email