Avoir des balises vides lors de l'export XML (VBA)

Version imprimable

03/03/2017, 17h09
littlebigclem

Avoir des balises vides lors de l'export XML (VBA)
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:

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:

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 !

Citation:

Envoyé par littlebigclem

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:

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.

06/03/2017, 10h38
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 !
06/03/2017, 12h26
Invité

Citation:

Envoyé par littlebigclem

Bonjour,

Il faudrait voir comment est fait votre fichier.
06/03/2017, 13h54
littlebigclem

1 pièce(s) jointe(s)

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 !

Pièce jointe 251313
06/03/2017, 14h00
Invité

Citation:

Envoyé par littlebigclem

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

Voici un apperçu du code d'import :

Code:

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
 
Private Sub CommandButton1_Click()
Dim XM As XmlMap
Dim MappageAI As Object
Dim MappageAO As Object
Dim MappageDIC As Object
Dim MappageDIO As Object
Dim MappageFAC As Object
Dim MappageValve As Object
Dim Map As Object
 
 
CheminSource = "U:\ActiveSetup\ConfigDB\"
MonFichier = Dir(CheminSource & "*.cof", vbNormal)
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Unload Me
 
For Each Map In ThisWorkbook.XmlMaps
    Map.Delete
Next
 
i = 1
j = 1
k = 1
l = 1
m = 1
n = 1
NombreFichierTraités = 0
 
'boucle pour importer tous les fichiers de la base de données du SMCC
Userform6.Show
 
Do While MonFichier <> ""
    DoEvents
 
    'Recherche du type de voies pour trier les AI, AO, FAC, DIC, etc
    If Left(MonFichier, 2) Like "AI" Then
 
        'test identifiation balise vide
        MaChaine = IdentifierUneBaliseVide("<Description />")
        'Renvoi à la Function IdentifierUneBaliseVide
 
        ThisWorkbook.XmlImport _
        URL:=CheminSource & MonFichier, _
        ImportMap:=Nothing, _
        Overwrite:=False, _
        Destination:=Worksheets("AI").Range("$A$" & i)
        i = i + 1

Et voici un perçu du code de l'export :

Code:

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
Private Sub CommandButton2_Click()
 
Dim Map As XmlMap
Dim MapEnCours As String
Dim MonCheminExport As String
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Unload Me
Userform6.Show
MonCheminExport = "C:\Users\sncm_pf50\Desktop\XML\"
 
'Export des AI
Sheets("AI").Select
NombreAI = Range("A65536").End(xlUp).Row
 
 
For i = 1 To NombreAI
    DoEvents
    Range("C" & i).Select
    NomXML = "AI_" & Range("C" & i).Value
 
    If (i - 1) = 0 Then
    IdentifierUneBaliseVide ("<Description />")
    ActiveWorkbook.SaveAsXMLData Filename:=MonCheminExport & NomXML & ".xml", Map:=ActiveWorkbook.XmlMaps _
        ("Analog_Mappage")
    Else
    ActiveWorkbook.SaveAsXMLData Filename:=MonCheminExport & NomXML & ".xml", Map:=ActiveWorkbook.XmlMaps _
        ("Analog_Mappage" & (i - 1))
    End If

Le code n'est surement pas parfait mais mis à part les balises vides qui disparaissent à l'export, il me convient niquel ^^

06/03/2017, 17h17
Invité

Citation:

Envoyé par littlebigclem

Je ne pratique pas les fichiers xml et n'ayant pas de fichier d'exemple pour tester, je ne pourrai vous répondre.
Si vos fichiers .cof peuvent se lire comme des fichiers txt, je verrai bien le remplacement des balises vides dans ces fichiers avant l'import dans Excel.
Je peux regarder un fichier d'exemple .cof si vous le souhaitez.
07/03/2017, 09h19
littlebigclem

Les fichiers .cof se lisent comme les fichiers Xml.
Comment est ce que je peux vous envoyer un fichier d'exemple .Cof ?
07/03/2017, 09h25
Invité

Citation:

Envoyé par littlebigclem

Comment est ce que je peux vous envoyer un fichier d'exemple .Cof ?

Bonjour,

En ajoutant votre fichier sans données confidentielles dans un message avec le bouton Gérer les pièces jointes.
07/03/2017, 11h00
littlebigclem

1 pièce(s) jointe(s)

Il me dit que le fichier est non valide.
Je vous l'envoie en Xml, il vous suffira de changer l'extension en .cof

Merci d'avance !!
07/03/2017, 11h23
Invité

Citation:

Envoyé par littlebigclem

Je regarde, mais pas tout de suite.
07/03/2017, 15h25
Invité

Citation:

Envoyé par littlebigclem

J'ai regardé de plus près comment était fait un fichier .xml et comment on pouvait réaliser un schéma de mappage .xsd.

Je ne suis pas arrivé à créer ce fichier de mappage et l'export du fichier au format .xml, font perdre la balise Description et une balise Unit.

En revanche, si vous procédez de la manière suivante, le mappage d'un fichier ayant perdu ses colonnes s'affichera correctement :

- Vous importez le fichier AI.xml (qui servira de modèle) et vous sélectionnez dans la source Xml : Analog.
- Vous effacez la ligne (1).
- Vous importez un fichier ayant perdu ses deux colonnes. Les colonnes du fichier importé vont se mettre dans les bonnes colonnes.

Pièce jointe 251762

En réalisant cela, on réalise sans doute ce que ferait un fichier .xsd. En conclusion et à défaut d'une fonctionnalité que je ne connais pas, il vous faut arriver à faire cette manip dans votre programme : Importer le schéma d'import avec un fichier .xml qui servira de modèle, puis importer le fichier de travail.
07/03/2017, 16h00
littlebigclem

Très bien merci,
je vais voir si je peux me dépatouiller avec tout ça ! Ça n'est pas évident à manipuler les fichiers Xml !

En tout cas merci d'avoir pris le temps de me répondre !
07/03/2017, 16h39
Invité

Une autre solution

Citation:

Envoyé par littlebigclem

Après avoir importé le fichier AI.xml, regardez ce que cela donne en mettant l'apostrophe dans les cellules vides de la première ligne (comme vous le feriez pour imposer le format alpha-numérique dans une cellule). Exportez en Xml et réimportez le fichier. Vous récupérez votre format.