Bonjour à tous,

Voilà, je me prends la tête depuis un moment sur un petit bout de code qui commence quelque peu à m'énerver.

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
Private Function ListerXyZToolsIntegre() As Boolean
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load("" & Application.StartupPath & "\xyztools.references.xml")
 
        Dim element As XmlNodeList = XmlDoc.DocumentElement.GetElementsByTagName("Tool")
        Dim noeud, noeudEnf As XmlNode
 
        Dim i As Integer = 0
        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                Select Case noeudEnf.LocalName
                    Case "Nom" : ListeIntegre(i, 0) = noeudEnf.InnerText
                    Case "Version" : ListeIntegre(i, 1) = noeudEnf.InnerText
                    Case "Url" : ListeIntegre(i, 2) = noeudEnf.InnerText
                    Case "TypeRech" : ListeIntegre(i, 3) = noeudEnf.InnerText
                    Case "ValRech" : ListeIntegre(i, 4) = noeudEnf.InnerText
                    Case "CmdSilent" : ListeIntegre(i, 5) = noeudEnf.InnerText
                    Case "PatchFile" : ListeIntegre(i, 6) = noeudEnf.InnerText
                    Case "RedemarrageObl" : ListeIntegre(i, 7) = noeudEnf.InnerText
                    Case "FichierDesinstallation" : ListeIntegre(i, 8) = noeudEnf.InnerText
                    Case "RegSuppression" : ListeIntegre(i, 9) = noeudEnf.InnerText
                End Select
            Next
            i += 1
        Next
 
        Return True
 
    End Function
Pouriez-vous me dire si vous voyez une erreur?
- Sachant que ce n'est pas un manque d'Imports.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Imports System.Xml
Imports System.IO
- Que le fichier XML est à la bonne place. Dossier "debug" pour les tests.

Je cherche à incrémenter une variable public définie de la façon suivante:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Public ListeIntegre(16, 16) As String
Quand je fais un test en MsgBox(), il arrête de s'afficher apres le "Load()" donc le problème viendrait de là mais pourquoi?

Merci d'avance pour votre aide