VALIDATION XML

Dim docXML As DOMDocument 'New doc XML
Set docXML = New DOMDocument 'Nouvelle instance d'un doc XML
cd.Filter = "*.xml|*.xml" 'filtre de la dlg
cd.DialogTitle = "Choisisser l'XML a valider"
cd.ShowOpen 'Boite de dlg Ouvrie
If cd.FileName <> "" Then 'Si un fichier a été choisi'
    docXML.validateOnParse = True 'Validaiton du parseur sur le fichier
    
    If docXML.Load(cd.FileName) Then
        txtErr.Text = "::Fichier Validé"
    Else
        txtErr.Text = "Le fichier n'est pas conforme a son DTD" & vbCrLf
        With docXML.parseError
            txtErr.Text = txtErr.Text & vbCrLf _
             & "Erreur " & .errorCode & ":" & .reason & vbCrLf _
             & "Fichier : " & .url & vbCrLf _
             & "Ligne : " & .Line & vbCrLf _
             & "Charactere : " & .linepos & vbCrLf & vbCrLf _
             & "Extrait : " & .srcText & vbCrLf
        End With
    End If
End If