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