[VB6] Parser XML contenu dans une chaine de caractère

J'ai trouver la réponse.
Pour les personnes intéressées, dans le cadre du tutoriel ca donne :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim oDvpDOMDocument As MSXML2.IXMLDOMDocument
    Dim strm As ADODB.Stream
 
    Set oDvpDOMDocument = New MSXML2.DOMDocument
    Set strm = New ADODB.Stream
 
    strm.Type = adTypeText
    strm.Charset = "ascii"
    strm.Open
    strm.WriteText "<?xml version=""1.0"" encoding=""ISO-8859-1""?><developpez><membre fonction=""Responsable Visual Basic""><nom>Cécile Muno</nom><pseudo>khany</pseudo><activite><date-inscription>21/10/2002</date-inscription><nbmsg>1698</nbmsg><nbtutoriel>4</nbtutoriel></activite></membre></developpez>"
    strm.Position = 0
 
    ' Chargement du document XML
 
    oDvpDOMDocument.async = False ' permet de charger entièrement le document en mémoire avant le traitement
 
    If oDvpDOMDocument.Load(strm) Then
        MsgBox "Document XML correctement chargé"
    Else
        MsgBox "Erreur de lecture du document XML"
        End
    End If

Il faut ajouter au projet la référence "Microsoft ActiveX Data Objects" (msado15.dll) pour pouvoir utiliser le type ADODB.Stream