Discussion :

[littlebigclem]

Bonjour à tous !
Ceci est mon premier message sur Développez.net, je vous prie donc de bien vouloir m'excuser si je ne respecte pas tous les codes

Voici mon problème :
à l'aide de VBA, j'importe dans un classeur toute une liste de fichier XML, afin de pouvoir les traiter plus facilement, puis je les réexporte tous dans un autre dossier.

Le problème est que dans mes fichiers XML d'origine, certaines balises sont vides

Exemple :

Code xml :

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

1
2
3
<Titi>TEST</Titi>
<Toto/>
<Tata>TEST</Tata>

Et j'aimerai retrouver ces balises vides quand je réexporte, or actuellement le fichier XML que j'obtient a cette forme là :

Exemple :

Code xml :

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

1
2
<Titi>TEST</Titi>
<Tata>TEST</Tata>

Je ne trouve pas comment faire pour conserver ces balises vides à l'export depuis excel.

Si vous avez une solution je suis preneur !

Merci d'avance !

[Invité]

Bonjour,

Je ne sais pas si la solution de remplacer la balise vide par une chaîne de substitution pourrait faire l'affaire, mais le code ci-dessous remplace la chaine <Toto/> au moyen d'une fonction. Idem pour la réinjection du fichier au moyen d'une autre fonction.

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
 
Sub Essai()
 
Dim MaChaine As String
 
       MaChaine = IdentifierUneBaliseVide("<Toto/>")
       MsgBox MaChaine
       MsgBox RecreerUneBaliseVide(MaChaine)
 
End Sub
 
Function IdentifierUneBaliseVide(ByVal ChaineXml As String) As String
 
Dim MaPosition As Integer
Dim MaBalise As String
 
    MaPosition = InStr(1, ChaineXml, "/>", vbTextCompare)
    If MaPosition > 0 Then
        MaBalise = Mid(ChaineXml, 2, MaPosition - 2)
        IdentifierUneBaliseVide = "<" & MaBalise & ">ZZZZZZZZZZZZ</" & MaBalise & ">"
    End If
 
End Function
 
Function RecreerUneBaliseVide(ByVal ChaineXml As String) As String
 
Dim MaPosition As Integer
Dim MaBalise As String
 
    MaPosition = InStr(1, ChaineXml, ">ZZZZZZZZZZZZ</", vbTextCompare)
    If MaPosition > 0 Then
        MaBalise = Mid(ChaineXml, 2, MaPosition - 2)
        RecreerUneBaliseVide = "<" & MaBalise & "/>"
    End If
 
End Function

Il manque la boucle pour analyser toutes les chaines.

[littlebigclem]

Bonjour,
Le code ci-dessus fonctionne pour identifier la balise vide et y ajouter du texte, mais ce texte n’apparaît pas ensuite dans mon fichier Excel. La case correspondant à <Toto/> reste vide.

Comment injecter le texte pour qu'il apparaisse dans le classeur Excel ?

Merci d'avance !

[Invité]

Bonjour,

Il faudrait voir comment est fait votre fichier.

[littlebigclem]

Bonjour,
Voici dans la pièce jointe un aperçu du fichier Excel.
Chaque ligne correspond a un fichier XML qui a été importé avec un mappage, via une macro.

Sauf que quand je fait un export pour obtenir à nouveau des fichier XML à partir d'Excel, les cases vides sont retirées du fichier XML final, et ne correspond donc pas exactement à la structure du fichier XML d'origine.

Voilà, j'espère que mes explications sont compréhensibles !

[Invité]

Quel est votre code à l'import et à l'export utilisant les deux fonctions ?