Corrigé 19.7 Effectuer une requête sur un fichier XML

Sub SélectionneAltitude() 
    Dim dblAltitudeMini As Double 
    Dim dblAltitude As Double 
    Dim point As MSXML2.IXMLDOMElement 
    Dim tracksegment As MSXML2.IXMLDOMElement 
    Dim blnOK As Boolean 
    Dim objetXML As MSXML2.DOMDocument60 
    Dim strCheminRessources As String 
    Dim intNbPoints As Integer 
    Dim intNoPoint As Integer 
    Dim intL As Integer 
    Call Chemin 
    strCheminRessources = strChemin & _ 
  &nb ...