bonjour

j'ai un fichier xml comme ceci

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
<SUGGEST>
  <ENTREPRISE>
    <NOM_ENTREPRISE>Sarl Num1</NOM_ENTREPRISE>
    <ADRESSE>
    </ADRESSE>
    <CODE_POSTAL>
    </CODE_POSTAL>
    <VILLE>
    </VILLE>
    <TELEPHONE>
    </TELEPHONE>
    <FAX>
    </FAX>
    <COURRIEL>alexandreparrein@gmail.com</COURRIEL>
    <DISTRIBUTEUR>
    </DISTRIBUTEUR>
    <LST_EPI>
      <EPI>
        <CODE>UNYC-0001</CODE>
        <TYPE>ABSORBEUR</TYPE>
        <NORME>
        </NORME>
        <MARQUE>UNYC</MARQUE>
        <MODELE>1</MODELE>
        <NUM_MARQUAGE>0001</NUM_MARQUAGE>
        <ANNEE>
        </ANNEE>
        <DUREE_DE_VIE>5</DUREE_DE_VIE>
        <RESULTAT>MAINTIENT EN SERVICE</RESULTAT>
        <MISE_EN_SERVICE>11/03/2010</MISE_EN_SERVICE>
      </EPI>
</LST_EPI>
  </ENTREPRISE>
</SUGGEST>

j'aimerais charger un combobox avec la liste des code dans le noeud EPI en fonction d'un nom d'entreprise

pour cela j'utilise ca

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
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest.XML")
        Dim element, element2 As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ENTREPRISE")
        Dim noeud, noeudEnf As XmlNode
        Dim nom As String
        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = "NOM_ENTREPRISE" Then
                    nom = noeudEnf.InnerText
                    'txt_entreprise.AutoCompleteCustomSource.Add(nom)
                    'MsgBox(type)
                    element2 = XmlDoc.DocumentElement.GetElementsByTagName("LST_EPI")
                    Dim noeudEPI, noeudEPIenf As XmlNode
                    For Each noeudEPI In element
                        For Each noeudEPIenf In noeudEPI.ChildNodes
                            If noeudEPIenf.LocalName = "CODE" Then
                                cb_listeEPI.Items.Add(noeudEPIenf.InnerText)
                            End If
                        Next
                    Next
                End If
 
            Next
        Next

mais rien ne ce charge

a votre avis pourquoi ?