Discussion :

[Chris6-0]

Bonjour tout le monde,

je passe par la méthode Print #1 pour créer un fichier XML à partir d´une multitude de tableaux.
Mon code tourne parfaitement, le seul hic est que dans le fichier XML qui en sort, des espaces se sont rajoutés avant et après chaque valeur tirée de cellules avec formules.
J´ai essayé de changer le format de ces dites formules en Text mais le résultat est le même.

Est-ce que quelqu´un a déjà rencontré ce problème ? Quelqu´un aurait il une idée ou une solution ?

Ci-dessous un petit extrait du code VBA:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Wertpapiert
                Print #1, "<WERTPAPIERE>"
                    Print #1, "<GESAMTBETRAG>"; Feu.Range("H10"); "</GESAMTBETRAG>"
                    Print #1, "<WERTPAPIER_MIT_ISIN>"
                        Print #1, "<bbk:ISIN>"; Feu.Range("L4"); "</bbk:ISIN>" 
                        Print #1, "<STUECKZAHL>"; Feu.Range("K10"); "</STUECKZAHL>"
                        Print #1, "<PREIS>"; Feu.Range("K10"); "</PREIS>"
                        Print #1, "<WAEHRUNG>"; "EUR"; "</WAEHRUNG>" 'EUR
                        Print #1, "<DARUNTER_WP_LEIHG>"; "0"; "</DARUNTER_WP_LEIHG>"
                        Print #1, "<DARUNTER_ECHTE_PG>"; "0"; "</DARUNTER_ECHTE_PG>"
                    Print #1, "</WERTPAPIER_MIT_ISIN>"
                Print #1, "</WERTPAPIERE>"

Et ici le résultat:

Code XML :

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

1
2
3
4
5
6
7
8
9
10
11
			<WERTPAPIERE>
				<GESAMTBETRAG> 673 </GESAMTBETRAG>
				<WERTPAPIER_MIT_ISIN>
					<bbk:ISIN>XXXXXXX</bbk:ISIN>
					<STUECKZAHL> 5133 </STUECKZAHL>
					<PREIS> 5133 </PREIS>
					<WAEHRUNG>EUR</WAEHRUNG>
					<DARUNTER_WP_LEIHG>0</DARUNTER_WP_LEIHG>
					<DARUNTER_ECHTE_PG>0</DARUNTER_ECHTE_PG>
				</WERTPAPIER_MIT_ISIN>
			</WERTPAPIERE>

Comme vous pouvez les voir, les valeurs entre les balises "Stueckzahl", "GESAMTBETRAG" et "PREIS" sont entouré d´un espace à droite et à gauche alors que les valeurs entre les balises "DARUNTER_WP_LEIHG" elle ne sont pas entourées d´espace étant donné que la valeur "0" est directement écrite dans le code.

Merci par avance pour votre aide.
Chris

[EricDgn]

Bonjour,

Remplacer tous les ; par des &.

Cordialement.

[Chris6-0]

Bonjour Eric,

effectivement mon problème est résolu, la macro ne génère plus d´espaces inutiles.
Je te remerci grandement pour ton aide.

Chris