VBA création XML avec Print #1, problème d´espace superflu
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:
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:
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
