Discussion :

[Le Sage]

Bonjour à toutes et tous !

Je suis débutant en XML/XSL, et je me heurte à un problème qui va sans doute vous paraître simple, mais qui me prend le chou depuis 3 jours !

Soit l'exportation Access suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2014-02-09T12:30:59">
<T_TEST_XML>
<Prenom>Toto</Prenom>
<Nom>LAMALICE</Nom>
</T_TEST_XML>
<T_TEST_XML>
<Prenom>Tata</Prenom>
<Nom>RTINOBEURRE</Nom>
</T_TEST_XML>
</dataroot>

J'arrive sans problème à manipuler ce qui est à l'intérieur de l'élément racine, mais pas la racine elle-même :s
Quelqu'un pourrait-il donc me dire comment, à l'aide de XSLT, obtenir la sortie ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<?xml version="1.0" encoding="UTF-8"?>
<Document xmlns="urn:iso:xsd:$pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<T_TEST_XML>
<Prenom>Toto</Prenom>
<Nom>LAMALICE</Nom>
</T_TEST_XML>
<T_TEST_XML>
<Prenom>Tata</Prenom>
<Nom>RTINOBEURRE</Nom>
</T_TEST_XML>
</Document>

Il s'agit en fait de "simplement" changer le nom et les attributs de l'élément racine cf. lignes 2 et 11...


Avec par avance tous mes remerciements à quiconque me sortira de ma galère, cordialement,
Eric.

[thelvin]

Il s'agit en fait de "simplement" changer le nom et les attributs de l'élément racine cf. lignes 2 et 11...

Malheureusement non. xmlns n'est pas un attribut. C'est une déclaration de namespace, qui a effet sur tout le reste du document.
Le changement demandé ici consiste à changer le nom de la racine, et le namespace de tous les éléments. Ce qui est à peu près la même chose que renommer tous les éléments pour leur donner un nouveau namespace.

En résumé, cela interdit l'utilisation de <xsl:copy> et <xsl:copy-of>. Et exige de mettre les xmlns et xmlns:xsi dans l'élément <xsl:stylesheet> lui-même pour qu'ils s'appliquent à tous les éléments créés littéralement.
La meilleure manière de le faire, dépend de qu'est-ce que tu fais exactement aux autres éléments de la racine. Il va donc falloir le montrer.

[Le Sage]

Bonjour, et merci de t'intéresser à mon problème.

Voici donc les précisions que tu demandes.

Je travaille sur un projet Access qui devra, entre autres, éditer des prélèvement bancaires au standard SEPA (je débute avec XML, mais pas avec Access )

Voici donc l'export Access brut (désolé, mais ne sachant pas encore comment comment indenter un document à plusieurs niveaux, je te le livre brut) :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2014-02-09T18:06:18">
<T_SEPA_HEADER>
<MsgId>MSGID - 123456</MsgId>
<CreDtTm>2009-09-04T14:25:00</CreDtTm>
<NbOfTxsGlobal>3</NbOfTxsGlobal>
<CtrlSumGlobal>6530.15</CtrlSumGlobal>
<InitgPtyNm>Societe XX</InitgPtyNm>
<T_SEPA_PMTINF>
<MsgId>MSGID - 123456</MsgId>
<PmtInfId>REF Remise 123</PmtInfId>
<BtchBookg>0</BtchBookg>
<NbOfTxsLot>2</NbOfTxsLot>
<CtrlSumLot>3250.15</CtrlSumLot>
<LclInstrmCd>CORE</LclInstrmCd>
<SeqTp>RCUR</SeqTp>
<ReqdColltnDt>2009-09-10T00:00:00</ReqdColltnDt>
<CdtrNm>Societe XX</CdtrNm>
<CdtrIBAN>FR7610041010050500013M02606</CdtrIBAN>
<CdtrBIC>BANKFRPP</CdtrBIC>
<CdtrId>FR00ZZZ123456</CdtrId>
</T_SEPA_PMTINF>
<T_SEPA_PMTINF>
<MsgId>MSGID - 123456</MsgId>
<PmtInfId>REF Remise 456</PmtInfId>
<BtchBookg>0</BtchBookg>
<NbOfTxsLot>1</NbOfTxsLot>
<CtrlSumLot>3280</CtrlSumLot>
<LclInstrmCd>CORE</LclInstrmCd>
<SeqTp>FRST</SeqTp>
<ReqdColltnDt>2009-09-15T00:00:00</ReqdColltnDt>
<CdtrNm>Societe XX</CdtrNm>
<CdtrIBAN>FR7610041010050500013M02606</CdtrIBAN>
<CdtrBIC>BANKFRPP</CdtrBIC>
<CdtrId>FR00ZZZ123456</CdtrId>
</T_SEPA_PMTINF>
</T_SEPA_HEADER>
<T_SEPA_DRCTDBT>
<PmtInfId>REF Remise 123</PmtInfId>
<DrctDbtId>1</DrctDbtId>
<InstrId>REF OPE AAAA</InstrId>
<EndToEndId>REF E2E XXX</EndToEndId>
<InstdAmt>1100.07</InstdAmt>
<MndtId>MANDAT NO 55555</MndtId>
<DtOfSgntr>2009-09-01T00:00:00</DtOfSgntr>
<AmdmntInd>0</AmdmntInd>
<DbtrNm>M. Debiteur N1</DbtrNm>
<DbtrIBAN>FR763004136210001234567811</DbtrIBAN>
<Ustrd>Facture N1</Ustrd>
<ChangementBanqueDebiteur>0</ChangementBanqueDebiteur>
</T_SEPA_DRCTDBT>
<T_SEPA_DRCTDBT>
<PmtInfId>REF Remise 123</PmtInfId>
<DrctDbtId>2</DrctDbtId>
<InstrId>REF OPE BBBB</InstrId>
<EndToEndId>REF E2E YYY</EndToEndId>
<InstdAmt>2150.08</InstdAmt>
<MndtId>MANDAT NO 66666</MndtId>
<DtOfSgntr>1989-07-03T00:00:00</DtOfSgntr>
<AmdmntInd>1</AmdmntInd>
<DbtrBIC>BANKGB2L</DbtrBIC>
<DbtrNm>M. Debiteur N2</DbtrNm>
<DbtrIBAN>GB29NWBK60161331926819</DbtrIBAN>
<StrdRef>Facture Reference ISO 654321</StrdRef>
<OrgnlMndtId>ANC REF MANDAT ABCD</OrgnlMndtId>
<ChangementBanqueDebiteur>0</ChangementBanqueDebiteur>
<AncienIdSepaCdtr>FRXXZZZ987654</AncienIdSepaCdtr>
</T_SEPA_DRCTDBT>
<T_SEPA_DRCTDBT>
<PmtInfId>REF Remise 456</PmtInfId>
<DrctDbtId>3</DrctDbtId>
<InstrId>REF OPE CCCC</InstrId>
<EndToEndId>REF E2E ZZZ</EndToEndId>
<InstdAmt>3280</InstdAmt>
<MndtId>MANDAT NO 77777</MndtId>
<DtOfSgntr>1991-05-07T00:00:00</DtOfSgntr>
<AmdmntInd>1</AmdmntInd>
<DbtrBIC>BANQBEBB</DbtrBIC>
<DbtrNm>M. Debiteur N3</DbtrNm>
<DbtrIBAN>BE30001216371411</DbtrIBAN>
<Ustrd>Facture N3</Ustrd>
<ChangementBanqueDebiteur>1</ChangementBanqueDebiteur>
</T_SEPA_DRCTDBT>
</dataroot>

Voici ensuite le schéma xsl que j'ai écrit :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
<?xml version="1.0" encoding="UTF-8"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:output method="xml" version="1.0" encoding="UTF-8" indent="yes"/>
 
	<!-- 
	##########################
	###  Template Général  ###
	##########################
	-->
 
	<xsl:template match="T_SEPA_HEADER">
		<!-- <Document xmlns="urn:iso:xsd:$pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemalocation="urn:iso:xsd:$pain.008.001.02.xsd"> -->
		<Document xmlns="urn:iso:xsd:$pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemalocation="urn:iso:xsd:$pain.008.001.02.xsd">
			<CstmrDrctDbtInitn>
				<xsl:call-template name="Header"/>
				<xsl:apply-templates select="T_SEPA_PMTINF"/>
			</CstmrDrctDbtInitn>
		</Document>
	</xsl:template>
 
 
	<!--
	 ========================================
	|  Mise en forme de l'entête de message  |
	 ========================================
	-->
	<xsl:template name="Header">
		<GrpHdr>
			<MsgId><xsl:value-of select="MsgId"/></MsgId>	<!-- Identifiant du message. Maxi 35 caractères -->
			<CreDtTm><xsl:value-of select="CreDtTm"/></CreDtTm>	<!-- Date de création du message -->
			<NbOfTxs><xsl:value-of select="NbOfTxsGlobal"/></NbOfTxs>	<!-- Nombre de transactions dans le message -->
			<CtrlSum><xsl:value-of select="CtrlSumGlobal"/></CtrlSum>	<!-- Montant total des transactions du message -->
			<InitgPty>
				<Nm><xsl:value-of select="InitgPtyNm"/></Nm>	<!-- Nom de l'émetteur du message -->
			</InitgPty>
		</GrpHdr>
	</xsl:template>
 
 
	<!--
	 =======================================
	|  Mise en forme des paramètres de lot  |
	 =======================================
	-->
	<xsl:template match="T_SEPA_PMTINF">
		<PmtInf>
			<PmtInfId><xsl:value-of select="PmtInfId"/></PmtInfId> <!-- Identifiant de la remise. Maxi 35 caractères -->
			<PmtInfMtd>DD</PmtInfMtd>	<!-- Valeur Imposée par l'iso -->
			<BtchBookg><xsl:if test="BtchBookg = 0">false</xsl:if><xsl:if test="BtchBookg != 0">true</xsl:if></BtchBookg>	<!-- Si "true" comptabilisation globale des remises, si "false" comptabilisation unitaire -->
			<NbOfTxs><xsl:value-of select="NbOfTxsLot"/></NbOfTxs>	<!-- Nombre de transactions dans le lot -->
			<CtrlSum><xsl:value-of select="CtrlSumLot"/></CtrlSum>	<!-- Montant total du lot -->
			<PmtTpInf>
				<SvcLvl>
						<Cd>SEPA</Cd>	<!-- Valeur Imposée par l'iso -->
				</SvcLvl>
				<LclInstrm>
					<Cd><xsl:value-of select="LclInstrmCd"/></Cd>	<!-- En fonction du débiteur : "CORE" si particulier, "B2B" si entreprise -->
				</LclInstrm>
				<SeqTp><xsl:value-of select="SeqTp"/></SeqTp>	<!-- Type de lot : "FRST", "RCUR", "FNAL", "OOFF" (ce dernier=ponctuel) -->
			</PmtTpInf>
			<ReqdColltnDt><xsl:value-of select="ReqdColltnDt"/></ReqdColltnDt> <!-- Echéance des prélèvement du lot -->
			<Cdtr>
				<Nm><xsl:value-of select="CdtrNm"/></Nm>	<!-- Nom du créancier - 140 caractères maxi. -->
			</Cdtr>	<!-- Informations sur le créancier -->
			<CdtrAcct>	<!-- Informations sur le compte du créancier -->
				<Id>
					<IBAN><xsl:value-of select="CdtrIBAN"/></IBAN> <!-- IBAN du créancier - 34 caractères maxi. -->
				</Id>
			</CdtrAcct>
			<CdtrAgt>	<!-- Informations sur la banque du créancier -->
				<xsl:if test="string-length(CdtrBIC) &gt; 0">
					<FinInstnId>
						<BIC><xsl:value-of select="CdtrBIC"/></BIC>	<!-- BIC du créancier - aussi appelé "Code SWIFT", 8 ou 11 caractères. -->
					</FinInstnId>
				</xsl:if>
				<xsl:if test="string-length(CdtrBIC) &lt; 1">
					<Othr>
						<Id>NOTPROVIDED</Id>	<!-- Valeur imposée si le BIC n'est pas fourni -->
					</Othr>
				</xsl:if>
			</CdtrAgt>
			<ChrgBr>SLEV</ChrgBr>	<!-- Réparticion des frais. Valeur Imposée par l'iso -->
			<CdtrSchmeId>
				<Id>
					<PrvtId>
						<Othr>
							<Id><xsl:value-of select="CdtrId"/></Id>	<!-- ICS (Identificateur Créancier SEPA) - 13 caractères -->
							<SchmeNm>
								<Prtry>SEPA</Prtry>	<!-- Valeur imposée par l'iso -->
							</SchmeNm>
						</Othr>
					</PrvtId>
				</Id>
			</CdtrSchmeId>
			<xsl:for-each select="T_SEPA_DRCTDBT">
				<xsl:apply-templates select="."/>
			</xsl:for-each>								
		</PmtInf>
	</xsl:template>
 
 
	<!--
	 ===============================================
	|  Mise en forme des paramètres de transaction  |
	 ===============================================
	-->
	<xsl:template match="//T_SEPA_DRCTDBT">
		<DrctDbtTxInf>	<!-- Eléments de la transaction -->
			<PmtId>	<!-- Références de l'opération -->
				<InstrId><xsl:value-of select="InstrId"/></InstrId>	<!-- Optionel : Référence comptable. Si renseignée, supplante EndToEndId ci-dessous. 35 caractères maxi. -->
				<EndToEndId><xsl:value-of select="EndToEndId"/></EndToEndId>	<!-- "Référence Bout en Bout" obligatoire car restituée telle quelle au débiteur -->
			</PmtId>
			<InstdAmt Ccy="EUR"><xsl:value-of select="InstdAmt"/></InstdAmt>	<!-- Montant en Euros du prélèvement SEPA -->
			<DrctDbtTx> <!-- Eléments du mandat-->
				<MndtRltdInf>	<!-- Informations relatives au mandat. -->
					<MndtId><xsl:value-of select="MndtId"/></MndtId>	<!-- Référence unique du mandat. 35 caractères maxi. -->
					<DtOfSgntr><xsl:value-of select="DtOfSgntr"/></DtOfSgntr>	<!-- Date de signature du mandat de prelevement  -->
					<xsl:if test="AmdmntInd != 0">	<!-- Partie conditionnelle : apparaît uniquement en cas de modification du mandat -->
						<xsl:call-template name="ModificationMandat"/>
					</xsl:if>
				</MndtRltdInf>
			</DrctDbtTx>
			<DbtrAgt>	<!-- Banque du débiteur -->
				<FinInstnId>
					<xsl:if test="string-length(DbtrBIC) &gt; 0">
						<BIC><xsl:value-of select="DbtrBIC"/></BIC>	<!-- BIC du créancier - aussi appelé "Code SWIFT", 8 ou 11 caractères. -->
					</xsl:if>
					<xsl:if test="string-length(DbtrBIC) &lt; 1">
						<Othr>
							<Id>NOTPROVIDED</Id>	<!-- Valeur imposée si le BIC n'est pas fourni -->
						</Othr>
					</xsl:if>
				</FinInstnId>
			</DbtrAgt>
			<Dbtr>	<!-- débiteur titulaire du compte à débiter  -->
				<Nm><xsl:value-of select="DbtrNm"/></Nm>  <!-- Nom ou Raison Sociale du débité - 140 caractères maxi. -->
			</Dbtr>
			<DbtrAcct>
				<Id>
					<IBAN><xsl:value-of select="DbtrIBAN"/></IBAN>	<!-- IBAN du débiteur - 34 caractères maxi. -->
				</Id>
			</DbtrAcct>
			<RmtInf>	<!-- Motif de paiement -->
				<xsl:if test="string-length(StrdRef) &lt; 1">
					<Ustrd><xsl:value-of select="Ustrd"/></Ustrd> <!-- Motif du paiement (Cotisation, Don, Abonnement, …) - 140 caractères maxi. -->
				</xsl:if>
				<xsl:if test="string-length(StrdRef) &gt; 0">
					<Strd>
						<CdtrRefInf>
							<Tp>
								<CdOrPrtry>
									<CD>SCOR</CD>
								</CdOrPrtry>
							</Tp>
							<Ref><xsl:value-of select="StrdRef"/></Ref> <!-- Si elle existe, référence structurée de la transaction - 35 caractères maxi. -->
						</CdtrRefInf>
					</Strd>
				</xsl:if>
			</RmtInf>
		</DrctDbtTxInf>
	</xsl:template>
 
 
 
	<!--
	 ................................................................
	...  Sous-templates utilisés en cas de modification de mandat  ...
	 ................................................................
	-->
 
	<!-- Template général pour les modifications de mandat -->
	<xsl:template name="ModificationMandat">
		<AmdmntInd>true</AmdmntInd> <!-- En cas de modification du mandat, doit apparaître avec la valeur 'true' -->
		<AmdmntInfDtls>
			<xsl:if test="string-length(OrgnlMndtId) &gt; 0">
				<OrgnlMndtId><xsl:value-of select="OrgnlMndtId"/></OrgnlMndtId>	<!-- Identifiant original du mandat. Obligatoire en cas de changement, interdit sinon - 35 caractères maxi. -->
			</xsl:if>
			<xsl:if test="string-length(OrgnlCdtrNm) &gt; 0 or string-length(AncienIdSepaCdtr) &gt; 0">
				<xsl:call-template name="ModificationsCreancier"/>
			</xsl:if>
			<xsl:if test="string-length(OrgnlDbtrIBAN) &gt; 0">
				<xsl:call-template name="ModificationCompteDebiteur"/>
			</xsl:if>
			<xsl:if test="ChangementBanqueDebiteur != 0">	<!-- Booléen créé pour la programmation. N'existe pas dans le SEPA -->
				<xsl:call-template name="ModificationBanqueDebiteur"/>
			</xsl:if>
		</AmdmntInfDtls>
	</xsl:template>
 
	<!-- Template pour les changements relatifs au créancier -->
	<xsl:template name="ModificationsCreancier">
		<OrgnlCdtrSchemeId>	<!-- Anciennes données relatives au créancier. N'utiliser que si nécessaire. -->
			<xsl:if test="string-length(OrgnlCdtrNm) &gt; 0">
				<Nm><xsl:value-of select="OrgnlCdtrNm"/></Nm>	<!-- Ancien nom du créancier. Obligatoire si changement de nom du créancier, interdit sinon - 140 caractères maxi. -->
			</xsl:if>
			<xsl:if test="string-length(AncienIdSepaCdtr) &gt; 0">
				<Id>	<!-- A utiliser soit lors d'un changement d'ICS, soit suite à la migration du prélèvement national vers le SEPA -->
					<PrvtId>
						<Othr>
							<Id><xsl:value-of select="AncienIdSepaCdtr"/></Id>	<!-- Ancien ICS du créancier, ou 'NNE' en cas de migration du virement national vers le prélèvement SEPA - 13 caractères maxi. -->
							<xsl:if test="AncienIdSepaCdtr != 'NNE'">
								<SchmeNm>	<!-- Obligatoire si l'ancien identifiant du créancier était un ICS, ne pas utiliser si NNE -->
									<Prtry>SEPA</Prtry>	<!-- Valeur 'SEPA' imposée par l'iso -->
								</SchmeNm>
							</xsl:if>
						</Othr>
					</PrvtId>
				</Id>
			</xsl:if>
		</OrgnlCdtrSchemeId>
	</xsl:template>
 
	<!-- Template pour les changements de numéro de compte débiteur -->
	<xsl:template name="ModificationCompteDebiteur">
		<OrgnlDbtrAcct>
			<Id>
				<IBAN><xsl:value-of select="OrgnlDbtrIBAN"/></IBAN>	<!-- Ancien numéro de compte débiteur. Interdit si pas de changement. Seul l'IBAN est autorisé - 34 caractères maxi. -->
			</Id>
		</OrgnlDbtrAcct>
	</xsl:template>
 
	<xsl:template name="ModificationBanqueDebiteur">
		<OrgnlDbtrAgt>	<!-- A n'utiliser qu'en cas de changement de banque du débiteur -->
			<FinInstnId>
				<Othr>
					<Id>SMNDA</Id>	<!-- Valeur imposée (Same Mandat New Debtor Agent) -->
				</Othr>
			</FinInstnId>
		</OrgnlDbtrAgt>
	</xsl:template>
 
</xsl:stylesheet>

Voilà enfin le résultat lorsque je mappe les deux fichiers ci-dessus dans Exchanger XSLT Dbugger :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
<?xml version="1.0"?>
<Document xsi:schemalocation="urn:iso:xsd:$pain.008.001.02.xsd" xmlns="urn:iso:xsd:$pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
	<CstmrDrctDbtInitn>
		<GrpHdr xmlns="">
			<MsgId>MSGID - 123456</MsgId>
			<CreDtTm>2009-09-04T14:25:00</CreDtTm>
			<NbOfTxs>3</NbOfTxs>
			<CtrlSum>6530.15</CtrlSum>
			<InitgPty>
				<Nm>Societe XX</Nm>
			</InitgPty>
		</GrpHdr>
		<PmtInf xmlns="">
			<PmtInfId>REF Remise 123</PmtInfId>
			<PmtInfMtd>DD</PmtInfMtd>
			<BtchBookg>false</BtchBookg>
			<NbOfTxs>2</NbOfTxs>
			<CtrlSum>3250.15</CtrlSum>
			<PmtTpInf>
				<SvcLvl>
					<Cd>SEPA</Cd>
				</SvcLvl>
				<LclInstrm>
					<Cd>CORE</Cd>
				</LclInstrm>
				<SeqTp>RCUR</SeqTp>
			</PmtTpInf>
			<ReqdColltnDt>2009-09-10T00:00:00</ReqdColltnDt>
			<Cdtr>
				<Nm>Societe XX</Nm>
			</Cdtr>
			<CdtrAcct>
				<Id>
					<IBAN>FR7610041010050500013M02606</IBAN>
				</Id>
			</CdtrAcct>
			<CdtrAgt>
				<FinInstnId>
					<BIC>BANKFRPP</BIC>
				</FinInstnId>
			</CdtrAgt>
			<ChrgBr>SLEV</ChrgBr>
			<CdtrSchmeId>
				<Id>
					<PrvtId>
						<Othr>
							<Id>FR00ZZZ123456</Id>
							<SchmeNm>
								<Prtry>SEPA</Prtry>
							</SchmeNm>
						</Othr>
					</PrvtId>
				</Id>
			</CdtrSchmeId>
			<DrctDbtTxInf>
				<PmtId>
					<InstrId>REF OPE AAAA</InstrId>
					<EndToEndId>REF E2E XXX</EndToEndId>
				</PmtId>
				<InstdAmt Ccy="EUR">1100.07</InstdAmt>
				<DrctDbtTx>
					<MndtRltdInf>
						<MndtId>MANDAT NO 55555</MndtId>
						<DtOfSgntr>2009-09-01T00:00:00</DtOfSgntr>
					</MndtRltdInf>
				</DrctDbtTx>
				<DbtrAgt>
					<FinInstnId>
						<Othr>
							<Id>NOTPROVIDED</Id>
						</Othr>
					</FinInstnId>
				</DbtrAgt>
				<Dbtr>
					<Nm>M. Debiteur N1</Nm>
				</Dbtr>
				<DbtrAcct>
					<Id>
						<IBAN>FR763004136210001234567811</IBAN>
					</Id>
				</DbtrAcct>
				<RmtInf>
					<Ustrd>Facture N1</Ustrd>
				</RmtInf>
			</DrctDbtTxInf>
			<DrctDbtTxInf>
				<PmtId>
					<InstrId>REF OPE BBBB</InstrId>
					<EndToEndId>REF E2E YYY</EndToEndId>
				</PmtId>
				<InstdAmt Ccy="EUR">2150.08</InstdAmt>
				<DrctDbtTx>
					<MndtRltdInf>
						<MndtId>MANDAT NO 66666</MndtId>
						<DtOfSgntr>1989-07-03T00:00:00</DtOfSgntr>
						<AmdmntInd>true</AmdmntInd>
						<AmdmntInfDtls>
							<OrgnlMndtId>ANC REF MANDAT ABCD</OrgnlMndtId>
							<OrgnlCdtrSchemeId>
								<Id>
									<PrvtId>
										<Othr>
											<Id>FRXXZZZ987654</Id>
											<SchmeNm>
												<Prtry>SEPA</Prtry>
											</SchmeNm>
										</Othr>
									</PrvtId>
								</Id>
							</OrgnlCdtrSchemeId>
						</AmdmntInfDtls>
					</MndtRltdInf>
				</DrctDbtTx>
				<DbtrAgt>
					<FinInstnId>
						<BIC>BANKGB2L</BIC>
					</FinInstnId>
				</DbtrAgt>
				<Dbtr>
					<Nm>M. Debiteur N2</Nm>
				</Dbtr>
				<DbtrAcct>
					<Id>
						<IBAN>GB29NWBK60161331926819</IBAN>
					</Id>
				</DbtrAcct>
				<RmtInf>
					<Strd>
						<CdtrRefInf>
							<Tp>
								<CdOrPrtry>
									<CD>SCOR</CD>
								</CdOrPrtry>
							</Tp>
							<Ref>Facture Reference ISO 654321</Ref>
						</CdtrRefInf>
					</Strd>
				</RmtInf>
			</DrctDbtTxInf>
		</PmtInf>
		<PmtInf xmlns="">
			<PmtInfId>REF Remise 456</PmtInfId>
			<PmtInfMtd>DD</PmtInfMtd>
			<BtchBookg>false</BtchBookg>
			<NbOfTxs>1</NbOfTxs>
			<CtrlSum>3280</CtrlSum>
			<PmtTpInf>
				<SvcLvl>
					<Cd>SEPA</Cd>
				</SvcLvl>
				<LclInstrm>
					<Cd>CORE</Cd>
				</LclInstrm>
				<SeqTp>FRST</SeqTp>
			</PmtTpInf>
			<ReqdColltnDt>2009-09-15T00:00:00</ReqdColltnDt>
			<Cdtr>
				<Nm>Societe XX</Nm>
			</Cdtr>
			<CdtrAcct>
				<Id>
					<IBAN>FR7610041010050500013M02606</IBAN>
				</Id>
			</CdtrAcct>
			<CdtrAgt>
				<FinInstnId>
					<BIC>BANKFRPP</BIC>
				</FinInstnId>
			</CdtrAgt>
			<ChrgBr>SLEV</ChrgBr>
			<CdtrSchmeId>
				<Id>
					<PrvtId>
						<Othr>
							<Id>FR00ZZZ123456</Id>
							<SchmeNm>
								<Prtry>SEPA</Prtry>
							</SchmeNm>
						</Othr>
					</PrvtId>
				</Id>
			</CdtrSchmeId>
			<DrctDbtTxInf>
				<PmtId>
					<InstrId>REF OPE CCCC</InstrId>
					<EndToEndId>REF E2E ZZZ</EndToEndId>
				</PmtId>
				<InstdAmt Ccy="EUR">3280</InstdAmt>
				<DrctDbtTx>
					<MndtRltdInf>
						<MndtId>MANDAT NO 77777</MndtId>
						<DtOfSgntr>1991-05-07T00:00:00</DtOfSgntr>
						<AmdmntInd>true</AmdmntInd>
						<AmdmntInfDtls>
							<OrgnlDbtrAgt>
								<FinInstnId>
									<Othr>
										<Id>SMNDA</Id>
									</Othr>
								</FinInstnId>
							</OrgnlDbtrAgt>
						</AmdmntInfDtls>
					</MndtRltdInf>
				</DrctDbtTx>
				<DbtrAgt>
					<FinInstnId>
						<BIC>BANQBEBB</BIC>
					</FinInstnId>
				</DbtrAgt>
				<Dbtr>
					<Nm>M. Debiteur N3</Nm>
				</Dbtr>
				<DbtrAcct>
					<Id>
						<IBAN>BE30001216371411</IBAN>
					</Id>
				</DbtrAcct>
				<RmtInf>
					<Ustrd>Facture N3</Ustrd>
				</RmtInf>
			</DrctDbtTxInf>
		</PmtInf>
	</CstmrDrctDbtInitn>
</Document>

... Et c'est exactement ce que je souhaite obtenir... à ceci près que j'aimerais vraiment voir disparaître les xmlns="" en tête de chaque groupe !

Le problème vient du fait que, lorsque j'enregistre l'exportation dans Access et que je la relance, ce dernier me renvoie l'erreur suivante :

La transformation spécifiée n'est pas parvenue à transformer vos données.
Un seul élément de niveau supérieur est autorisé dans un document XML.

Échec d'exécution de la spécification. Recréez-la.

Le plus bizarre est que, si je refais dans la foulée la même exportation manuellement en utilisant la même feuille de style (via l'assistant d'exportation Access), tout se passe à merveille !

Le problème est que cette application n'est pas pour moi, et que l'utilisateur final ne devrait pas avoir accès à la fenêtre "base de données" ni au ruban. Il faut donc que je trouve un moyen d'automatiser ça !

Au cas où tu serais aussi familier d'Access, j'ai tenté le coup en VBA :

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
Sub ExportXML()
    Const strTableEntete As String = "T_SEPA_HEADER"
    Const strTableLots As String = "T_SEPA_PMTINF"
    Const strTableTransactions As String = "T_SEPA_DRCTDBT"
    Const strFichierExport As String = "H:\Dropbox\SEPA\MessageSepa.xml"
    Const strFichierExport2 As String = "H:\Dropbox\SEPA\PrelevementSepa.xml"
    Const strFichierSchema As String = "H:\Dropbox\SEPA\sepa_access_pain_008_001_02.xsl"
    Dim objTablesLiees As AdditionalData
 
    Set objTablesLiees = Application.CreateAdditionalData
 
    objTablesLiees.Add strTableLots
    objTablesLiees.Add strTableTransactions
 
    Application.ExportXML ObjectType:=acExportTable, DataSource:=strTableEntete, _
                          DataTarget:=strFichierExport, _
                          AdditionalData:=objTablesLiees
 
    TransformXML strFichierExport, strFichierSchema, strFichierExport2, True
 
    Set objTablesLiees = Nothing
End Sub

Malheureusement, la ligne 19, censée mapper l'extraction XML avec la feuille de style, me renvoie la même erreur :

Erreur d'exécution '31589':
La transformation spécifiée n'est pas parvenue à transformer vos données.

Un seul élément de niveau supérieur est autorisé dans un document XML.

Ne comprenant pas pourquoi ça marche à un moment et pas à un autre, j'ai arrêté de remettre en question ma feuille de style et me suis penché sur l'exportation produite par la ligne 15 de la routine ci-dessus. C'est là que je me suis aperçu qu'Access réalisait son exportation avec son propre élément racine (le fameux dataroot de mon premier message, constatable dans l'export brut en haut de la présente réponse) :

Code :

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

1
2
3
4
<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2014-02-09T18:39:42">
     Bla bla bla
</dataroot>

Je suppose donc que la tentative de mappage des deux crée un conflit entre <dataroot> produit par Access et <Document> écrit en dur dans la feuille de style...

D'où la question à laquelle tu as eu la gentillesse de répondre : comment transformer

Code :

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

1
2
3
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2014-02-09T18:39:42">
	Bla Bla Bla	
</dataroot>

en

Code :

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

1
2
3
<Document xmlns="urn:iso:xsd:$pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemalocation="urn:iso:xsd:$pain.008.001.02.xsd">
	Bla Bla Bla	
</Document>

Voilà, j'espère avoir été suffisamment clair et précis, et surtout que la solution va t'apparaître comme évidente !

Merci d'avance pour ton retour (théoriquement, je livre le truc demain) !

Cordialement,
Eric.

PS : si tu as le bout de code qui permet d'indenter un document XML à plusieurs niveaux, je suis aussi preneur (je ne sais pas dire match="la racine et tous ses enfants et tous ses petits enfants etc.") Peut être la structure du prélèvement SEPA sera utile à illustrer ma question :

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
 
<Document>
	<CstmrDrctDbtInitn>
		<GrpHdr>
			<PmtInf>
				<DrctDbtTxInf>
					Bla bla bla
				</DrctDbtTxInf>
				<DrctDbtTxInf>
					Blu blu blu
				</DrctDbtTxInf>
			</PmtInf>
			<PmtInf>
				<DrctDbtTxInf>
					Bla bla bla
				</DrctDbtTxInf>
			</PmtInf>
		</GrpHdr>
	</CstmrDrctDbtInitn>
</Document>

Encore merci !

[thelvin]

... Et c'est exactement ce que je souhaite obtenir... à ceci près que j'aimerais vraiment voir disparaître les xmlns="" en tête de chaque groupe !

Voilà.

Par chance, ta feuille de style n'utilise pas <xsl:copy> ni <xsl:copy-of> ni <xsl:element>. Ce qui signifie que tous les éléments sont crées de manière littérale.
Cela nous simplifie la vie : la solution que j'ai donnée dans mon premier message, juste mettre mettre le xmlns dans <xsl:stylesheet> et non pas dans <Document>, l'appliquera à tous les éléments, et donnera le résultat voulu.

PS : si tu as le bout de code qui permet d'indenter un document XML à plusieurs niveaux, je suis aussi preneur (je ne sais pas dire match="la racine et tous ses enfants et tous ses petits enfants etc.")

"Bout de code" ? Tu l'ouvres dans un IDE ou autre outil XML, et tu demandes "formater automatiquement" ou quoi que ce soit de ce genre.

[Le Sage]

YESS !
Merci merci merci !

Premier problème résolu :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
<?xml version="1.0"?>
<Document xmlns="urn:iso:xsd:$pain.008.001.02" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
	<CstmrDrctDbtInitn>
		<GrpHdr>
			<MsgId>MSGID - 123456</MsgId>
			<CreDtTm>2009-09-04T14:25:00</CreDtTm>
			<NbOfTxs>3</NbOfTxs>
			<CtrlSum>6530.15</CtrlSum>
			<InitgPty>
				<Nm>Societe XX</Nm>
			</InitgPty>
		</GrpHdr>
		<PmtInf>
			<PmtInfId>REF Remise 123</PmtInfId>
			<PmtInfMtd>DD</PmtInfMtd>
			<BtchBookg>false</BtchBookg>
			<NbOfTxs>2</NbOfTxs>
			<CtrlSum>3250.15</CtrlSum>
			<PmtTpInf>
				<SvcLvl>
					<Cd>SEPA</Cd>
				</SvcLvl>
				<LclInstrm>
					<Cd>CORE</Cd>
				</LclInstrm>
				<SeqTp>RCUR</SeqTp>
			</PmtTpInf>
			<ReqdColltnDt>2009-09-10T00:00:00</ReqdColltnDt>
			<Cdtr>
				<Nm>Societe XX</Nm>
			</Cdtr>
			<CdtrAcct>
				<Id>
					<IBAN>FR7610041010050500013M02606</IBAN>
				</Id>
			</CdtrAcct>
			<CdtrAgt>
				<FinInstnId>
					<BIC>BANKFRPP</BIC>
				</FinInstnId>
			</CdtrAgt>
			<ChrgBr>SLEV</ChrgBr>
			<CdtrSchmeId>
				<Id>
					<PrvtId>
						<Othr>
							<Id>FR00ZZZ123456</Id>
							<SchmeNm>
								<Prtry>SEPA</Prtry>
							</SchmeNm>
						</Othr>
					</PrvtId>
				</Id>
			</CdtrSchmeId>
			<DrctDbtTxInf>
				<PmtId>
					<InstrId>REF OPE AAAA</InstrId>
					<EndToEndId>REF E2E XXX</EndToEndId>
				</PmtId>
				<InstdAmt Ccy="EUR">1100.07</InstdAmt>
				<DrctDbtTx>
					<MndtRltdInf>
						<MndtId>MANDAT NO 55555</MndtId>
						<DtOfSgntr>2009-09-01T00:00:00</DtOfSgntr>
					</MndtRltdInf>
				</DrctDbtTx>
				<DbtrAgt>
					<FinInstnId>
						<Othr>
							<Id>NOTPROVIDED</Id>
						</Othr>
					</FinInstnId>
				</DbtrAgt>
				<Dbtr>
					<Nm>M. Debiteur N1</Nm>
				</Dbtr>
				<DbtrAcct>
					<Id>
						<IBAN>FR763004136210001234567811</IBAN>
					</Id>
				</DbtrAcct>
				<RmtInf>
					<Ustrd>Facture N1</Ustrd>
				</RmtInf>
			</DrctDbtTxInf>
			<DrctDbtTxInf>
				<PmtId>
					<InstrId>REF OPE BBBB</InstrId>
					<EndToEndId>REF E2E YYY</EndToEndId>
				</PmtId>
				<InstdAmt Ccy="EUR">2150.08</InstdAmt>
				<DrctDbtTx>
					<MndtRltdInf>
						<MndtId>MANDAT NO 66666</MndtId>
						<DtOfSgntr>1989-07-03T00:00:00</DtOfSgntr>
						<AmdmntInd>true</AmdmntInd>
						<AmdmntInfDtls>
							<OrgnlMndtId>ANC REF MANDAT ABCD</OrgnlMndtId>
							<OrgnlCdtrSchemeId>
								<Id>
									<PrvtId>
										<Othr>
											<Id>FRXXZZZ987654</Id>
											<SchmeNm>
												<Prtry>SEPA</Prtry>
											</SchmeNm>
										</Othr>
									</PrvtId>
								</Id>
							</OrgnlCdtrSchemeId>
						</AmdmntInfDtls>
					</MndtRltdInf>
				</DrctDbtTx>
				<DbtrAgt>
					<FinInstnId>
						<BIC>BANKGB2L</BIC>
					</FinInstnId>
				</DbtrAgt>
				<Dbtr>
					<Nm>M. Debiteur N2</Nm>
				</Dbtr>
				<DbtrAcct>
					<Id>
						<IBAN>GB29NWBK60161331926819</IBAN>
					</Id>
				</DbtrAcct>
				<RmtInf>
					<Strd>
						<CdtrRefInf>
							<Tp>
								<CdOrPrtry>
									<CD>SCOR</CD>
								</CdOrPrtry>
							</Tp>
							<Ref>Facture Reference ISO 654321</Ref>
						</CdtrRefInf>
					</Strd>
				</RmtInf>
			</DrctDbtTxInf>
		</PmtInf>
		<PmtInf>
			<PmtInfId>REF Remise 456</PmtInfId>
			<PmtInfMtd>DD</PmtInfMtd>
			<BtchBookg>false</BtchBookg>
			<NbOfTxs>1</NbOfTxs>
			<CtrlSum>3280</CtrlSum>
			<PmtTpInf>
				<SvcLvl>
					<Cd>SEPA</Cd>
				</SvcLvl>
				<LclInstrm>
					<Cd>CORE</Cd>
				</LclInstrm>
				<SeqTp>FRST</SeqTp>
			</PmtTpInf>
			<ReqdColltnDt>2009-09-15T00:00:00</ReqdColltnDt>
			<Cdtr>
				<Nm>Societe XX</Nm>
			</Cdtr>
			<CdtrAcct>
				<Id>
					<IBAN>FR7610041010050500013M02606</IBAN>
				</Id>
			</CdtrAcct>
			<CdtrAgt>
				<FinInstnId>
					<BIC>BANKFRPP</BIC>
				</FinInstnId>
			</CdtrAgt>
			<ChrgBr>SLEV</ChrgBr>
			<CdtrSchmeId>
				<Id>
					<PrvtId>
						<Othr>
							<Id>FR00ZZZ123456</Id>
							<SchmeNm>
								<Prtry>SEPA</Prtry>
							</SchmeNm>
						</Othr>
					</PrvtId>
				</Id>
			</CdtrSchmeId>
			<DrctDbtTxInf>
				<PmtId>
					<InstrId>REF OPE CCCC</InstrId>
					<EndToEndId>REF E2E ZZZ</EndToEndId>
				</PmtId>
				<InstdAmt Ccy="EUR">3280</InstdAmt>
				<DrctDbtTx>
					<MndtRltdInf>
						<MndtId>MANDAT NO 77777</MndtId>
						<DtOfSgntr>1991-05-07T00:00:00</DtOfSgntr>
						<AmdmntInd>true</AmdmntInd>
						<AmdmntInfDtls>
							<OrgnlDbtrAgt>
								<FinInstnId>
									<Othr>
										<Id>SMNDA</Id>
									</Othr>
								</FinInstnId>
							</OrgnlDbtrAgt>
						</AmdmntInfDtls>
					</MndtRltdInf>
				</DrctDbtTx>
				<DbtrAgt>
					<FinInstnId>
						<BIC>BANQBEBB</BIC>
					</FinInstnId>
				</DbtrAgt>
				<Dbtr>
					<Nm>M. Debiteur N3</Nm>
				</Dbtr>
				<DbtrAcct>
					<Id>
						<IBAN>BE30001216371411</IBAN>
					</Id>
				</DbtrAcct>
				<RmtInf>
					<Ustrd>Facture N3</Ustrd>
				</RmtInf>
			</DrctDbtTxInf>
		</PmtInf>
	</CstmrDrctDbtInitn>
</Document>

Le Name Space est bien visible dans l'élément Document et appliqué à tout l'ensemble !

Mais :

• L'attribut "Encoding" n'apparaît pas dans le prologue
• Et surtout, les erreurs lors de l'export enregistré et avec la routine VBA demeurent

Il me faut donc modifier quelque chose dans mon XSL, non ?

[thelvin]

L'attribut "Encoding" n'apparaît pas dans le prologue

Il n'est pas nécessaire, l'encodage utf-8 est celui par défaut en XML. Ce sont les autres encodages qui nécessitent de s'annoncer.
Mais si tu le veux quand même, et que ton moteur XSLT ne le met pas, et que tu as tenté <xsl:output> au cas où, alors il n'y a rien à faire. Le moteur ne fournit aucun moyen classique d'ajouter cette information dans le prologue.

Et surtout, les erreurs lors de l'export enregistré et avec la routine VBA demeurent

Je ne connais ni Access, ni VBA, désolé.

Il me faut donc modifier quelque chose dans mon XSL, non ?

De ce que j'en vois, non. Après, il est pas impossible qu'Access ou VBA aient leurs petites lubies.

[Le Sage]

J'ai trouvé !

C'est mon code VBA qui n'allait pas !

Même si tu ne connais pas VBA, je vais donner l'explication pour ceux que ça intéresserait parce que c'est vraiment tordu (va d'ailleurs falloir que je m'y penche de plus près pour comprendre pourquoi ça l'est autant !
En épluchant l'export produit par mon premier code VBA :

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
Sub ExportXML()
    Const strTableEntete As String = "T_SEPA_HEADER"
    Const strTableLots As String = "T_SEPA_PMTINF"
    Const strTableTransactions As String = "T_SEPA_DRCTDBT"
    Const strFichierExport As String = "H:\Dropbox\SEPA\MessageSepa.xml"
    Const strFichierExport2 As String = "H:\Dropbox\SEPA\PrelevementSepa.xml"
    Const strFichierSchema As String = "H:\Dropbox\SEPA\sepa_access_pain_008_001_02.xsl"
    Dim objTablesLiees As AdditionalData
 
    Set objTablesLiees = Application.CreateAdditionalData
 
    objTablesLiees.Add strTableLots
    objTablesLiees.Add strTableTransactions
 
    Application.ExportXML ObjectType:=acExportTable, DataSource:=strTableEntete, _
                          DataTarget:=strFichierExport, _
                          AdditionalData:=objTablesLiees
 
    TransformXML strFichierExport, strFichierSchema, strFichierExport2, True
 
    Set objTablesLiees = Nothing
End Sub

je me suis aperçu que son exécution donnait une structure de sortie suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<A>
	<B>
		<C>
		</C>
		<C>
		</C>
	</B>
	<D>
	</D>
	<D>
	</D>
	<D>
	</D>
</A>

au lieu de :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<A>
	<B>
		<C>
			<D>
			</D>
			<D>
			</D>
		</C>
		<C>
			<D>
			</D>
		</C>
	</B>
</A>

En d'autres termes, les deux tables liées étaient considérées comme deux filles de la table principale, au lieu d'une fille et d'une petite-fille :
B/C et B/D au lieu de B/C/D (A étant la racine du document)

Voici donc le bon code VBA, qui permet d'obtenir la seconde structure :

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
Sub ExportXML()
    Const strTableEntete As String = "T_SEPA_HEADER"
    Const strTableLots As String = "T_SEPA_PMTINF"
    Const strTableTransactions As String = "T_SEPA_DRCTDBT"
    Const strFichierExport As String = "H:\Dropbox\SEPA\MessageSepa.xml"
    Const strFichierExport2 As String = "H:\Dropbox\SEPA\PrelevementSepa.xml"
    Const strFichierSchema As String = "H:\Dropbox\SEPA\sepa_access_pain_008_001_02.xsl"
    Dim objTablesLiees As AdditionalData
    Dim objTableLots As AdditionalData, objTableTransactions As AdditionalData
 
    Set objTableLots = Application.CreateAdditionalData
    Set objTableTransactions = objTableLots.Add(strTableLots)
    objTableTransactions.Add strTableTransactions
 
    Application.ExportXML ObjectType:=acExportTable, DataSource:=strTableEntete, _
                          DataTarget:=strFichierExport, _
                          AdditionalData:=objTableLots
 
    TransformXML strFichierExport, strFichierSchema, strFichierExport2, True
 
    Set objTableTransactions = Nothing
    Set objTableLots = Nothing
End Sub

Encore un énorme à thelvin pour ta correction et la validation de ma feuille de style qui n'était pas évidente pour moi dans la mesure où j'ai débuté en XML/XSL il y a... 3 jours !

Et, remarque tout à fait inutile du point de vue technique, j'ai l'impression que je vais persévérer parce que ce langage m'a l'air puissant et pas si compliqué que ça à aborder.
Donc, et bien que je sois un habitué des forums VBA de developpez.com, il se pourrait bien qu'on me voit plus souvent sur celui-ci

Au plaisir de futurs échange !
Eric.

PS : Pour ceux que ça intéresserait, j'ai aussi trouvé comment indenter le code dans Exchanger XML Editor :

• Edit
  
  • XML
    
    • Format

Journée constructive !