Insertion valeur dans une balise XML

**franck87** · 09/08/2021, 10h56

Bonjour,

Je cherche à insérer un attribut et une valeur date dans une balise XML. Voici ce ce que j'ai actuellement:

Code XML :

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

1
2
3
4
5
6
-<n4ds:S20_G00_05 originalValue="01092020" xsi:type="n4ds:Sortie_Mensuelle">
<n4ds:S20_G00_05_001>01</n4ds:S20_G00_05_001>
<n4ds:S20_G00_05_002>01</n4ds:S20_G00_05_002>
<n4ds:S20_G00_05_003>1</n4ds:S20_G00_05_003>
<n4ds:S20_G00_05_004>1</n4ds:S20_G00_05_004>
<n4ds:S20_G00_05>2020-09-01</n4ds:S20_G00_05>

et ce que je voudrais obtenir (Gras et souligné :

Code XML :

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

1
2
3
4
5
6
-<n4ds:S20_G00_05 xsi:type="n4ds:Sortie_Mensuelle">
<n4ds:S20_G00_05_001>01</n4ds:S20_G00_05_001>
<n4ds:S20_G00_05_002>01</n4ds:S20_G00_05_002>
<n4ds:S20_G00_05_003>1</n4ds:S20_G00_05_003>
<n4ds:S20_G00_05_004>1</n4ds:S20_G00_05_004>
<n4ds:S20_G00_05 originalValue="01092020" >2020-09-01</n4ds:S20_G00_05>

Merci de votre aide, ci-dessous mon code

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
Sub Gestion_rubrique_SortieMensuelle(NoLig As Long)
 
     NbreCol = 4
    NomColonne = ColonneDeclaration
 
    ReDim TBDonnees(NbreCol - 1, 0)
    For i = 0 To NbreCol - 1
        TBDonnees(i, 0) = FL1.Range(NomColonne & NoLig).Offset(0, i).Value
    Next
 
    If (TBDonnees(0, 0) <> "") Then
        NomNoeud = "n4ds:" & FL1.Range(NomColonne & LigneRubrique).Value
        Set XmlBalise2 = Fichier.createElement(NomNoeud)
        XmlBalise1.appendChild XmlBalise2
        Set Name = Fichier.CreateAttribute("xsi:type")          '*** Création de l'attribut
        Name.NodeValue = "n4ds:Sortie_Mensuelle"                   '*** Valeur de l'attribut
        XmlBalise2.SetAttributeNode Name
        XmlBalise2.appendChild Fichier.createTextNode(vbCrLf)   '*** Retour
        Total_Nb_Rubrique = Total_Nb_Rubrique + 1
 
        Call Rubriques(XmlBalise2)
 
'*** Mois principal déclaré est ici unique pour un fichier Excel
        Set Element = Fichier.createElement(NomNoeud)
        Set Name = Fichier.CreateAttribute("originalValue")          '*** Création de l'attribut
        Name.NodeValue = Format(FL1.Range(ColonneMoisPrincipalDeclare & LigneRubriqueMoisPrincipal).Offset(0, 1).Value, "DDMMYYYY")
        XmlBalise2.appendChild Element
        XmlBalise2.SetAttributeNode Name
        Element.Text = Format(FL1.Range(ColonneMoisPrincipalDeclare & LigneRubriqueMoisPrincipal).Offset(0, 1).Value, "YYYY-MM-DD")
        XmlBalise2.appendChild Fichier.createTextNode(vbCrLf) 'Retour
        Total_Nb_Rubrique = Total_Nb_Rubrique + 1
 
    End If
 
    Call Gestion_Rubrique_Donnees_Suivi(NoLig)  '*** Creation rubrique S21_G00_96 (Suivi cardinalité 0,1)
    Call Gestion_Rubrique_Entreprise(NoLig)     '*** Creation rubrique S21_G00_06 (Entreprise cardinalité 1,1)
    Call Gestion_Rubrique_Lieu_Travail(NoLig)   '*** Creation rubrique S21_G00_85 (Suivi cardinalité 0,N)
 
End Sub

**Pierre Fauconnier** · 11/08/2021, 10h09

Salut.

Dans ta proc, il y a notamment la variable fichier dont je ne trouve pas la déclaration. Je suppose que c'est une variable publique? De quel type? Quelle bibliothèque as-tu utilisée?

**franck87** · 11/08/2021, 14h12

Bonjour Pierre,

En réponse à ta question, voici la déclaration de la variable fichier

Set Fichier = CreateObject("MSXML2.DOMDocument")

Mais la nuit porte conseil et à force de me prendre pour un terrassier ;-). J'ai trouvé la faille et une solution à mon problème, il fallait simplement renommer l'attribut "Element" de mon 1er codage pour créer un 2éme attribut sur la balise. (il s'agit d'un code que je reprends derrière une autre personne).

Je joins ci dessous la solution en espérant qu'il puisse aider d'autres personnes.

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
Sub Gestion_rubrique_SortieMensuelle(NoLig As Long)

    Total_Nb_DSN = Total_Nb_DSN + 1

    NbreCol = 4
    NomColonne = ColonneDeclaration

    ReDim TBDonnees(NbreCol, 0)
    For i = 0 To NbreCol
        Select Case i
            Case 0 To 3: TBDonnees(i, 0) = FL1.Range(NomColonne & NoLig).Offset(0, i).Value
            Case 4: TBDonnees(i, 0) = Format(FL1.Range(ColonneMoisPrincipalDeclare & LigneRubriqueMoisPrincipal).Offset(0, 1).Value, "YYYY-MM-DD")
            Case Else:
        End Select
    Next

    If (TBDonnees(0, 0) <> "") Then
        NomNoeud = "n4ds:" & FL1.Range(NomColonne & LigneRubrique).Value
        Set XmlBalise2 = Fichier.CreateElement(NomNoeud)
        XmlBalise1.appendChild XmlBalise2

        Set Name = Fichier.CreateAttribute("xsi:type")          '*** Création de l'attribut
        Name.Text = "n4ds:Sortie_Mensuelle"                    '*** Valeur de l'attribut

        XmlBalise2.SetAttributeNode Name
        XmlBalise2.appendChild Fichier.createTextNode(vbCrLf)   '*** Retour
        Total_Nb_Rubrique = Total_Nb_Rubrique + 1
        
        For i = 0 To UBound(TBDonnees)
            If Not IsDate(TBDonnees(i, 0)) And TBDonnees(i, 0) <> "" Then
                NomNoeud = "n4ds:" & FL1.Range(NomColonne & LigneSousRubrique).Offset(0, i).Value
                Set Element = Fichier.CreateElement(NomNoeud)
                XmlBalise2.appendChild Element
                Element.Text = TBDonnees(i, 0)
            Else
               
                NomNoeud = "n4ds:" & FL1.Range(ColonneMoisPrincipalDeclare & LigneRubriqueMoisPrincipal).Value
                Set ElementDate = Fichier.CreateElement(NomNoeud)
                
                XmlBalise2.appendChild ElementDate
                Set Name = Fichier.CreateAttribute("originalValue")                                                                                 '*** Création de l'attribut
                Name.NodeValue = Format(TBDonnees(i, 0), "DDMMYYYY")         '*** Valeur de l'attribut
                ElementDate.SetAttributeNode Name
                
                ElementDate.Text = Format(TBDonnees(i, 0), "YYYY-MM-DD")      '*** Valeur de la balise
            End If
            
            XmlBalise2.appendChild Fichier.createTextNode(vbCrLf)   '*** Retour
            Total_Nb_Rubrique = Total_Nb_Rubrique + 1
        Next
    
    End If
''''
''''    Call Gestion_Rubrique_Donnees_Suivi(NoLig)  '*** Creation rubrique S21_G00_96 (Suivi cardinalité 0,1)
''''    Call Gestion_Rubrique_Entreprise(NoLig)     '*** Creation rubrique S21_G00_06 (Entreprise cardinalité 1,1)
''''    Call Gestion_Rubrique_Lieu_Travail(NoLig)   '*** Creation rubrique S21_G00_85 (Suivi cardinalité 0,N)
    
End Sub

et le résultat

Code :

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

1
2
3
4
5
6
7
-<n4ds:S20_G00_05 xsi:type="n4ds:Sortie_Mensuelle">
<n4ds:S20_G00_05_001>01</n4ds:S20_G00_05_001>
<n4ds:S20_G00_05_002>01</n4ds:S20_G00_05_002>
<n4ds:S20_G00_05_003>1</n4ds:S20_G00_05_003>
<n4ds:S20_G00_05_004>1</n4ds:S20_G00_05_004>
<n4ds:S20_G00_05_005 originalValue="01092020">2020-09-01</n4ds:S20_G00_05_005>
</n4ds:S20_G00_05>

Cordialement

**Pierre Fauconnier** · 11/08/2021, 20h40

Merci d'avoir rapporté la solution ici

Insertion valeur dans une balise XML [Toutes versions]

Macros et VBA Excel

Discussions similaires

Partager

Partager