Extraction de données xml

Bonjour,

J'ai un problème d'extraction de valeur du fichier xml à un fichier Excel (je pense que c'est du au nom des balises (deux fois "occupation" utilisés)

voici mon code XML

<occupation>
   <occupation>1</occupation>      <<<<<----- données a exporter
   <annuelle>true</annuelle>
   <annee></annee>
</occupation>

<calcul-conso>
  <consignes-temperature>
      <consigne-temperature>
          <jour>19</jour>
          <nuit>16</nuit>
          <absence>17</absence>
         <ralenti>true</ralenti>
         <pourcent>100</pourcent>
     </consigne-temperature>
   </consignes-temperature>
</calcul-conso>

voici mon code VB

 
  '******* Temperature de consigne
        Set oNode = oXML.getElementsByTagName("consigne-temperature").Item(ivar)
        wks.Cells(473, 4 + numvar) = oNode.SelectSingleNode("jour").Text
        wks.Cells(474, 4 + numvar) = oNode.SelectSingleNode("nuit").Text
        wks.Cells(475, 4 + numvar) = oNode.SelectSingleNode("absence").Text

 '******* Type de mode d'occupation
        Set oNode = oXML.getElementsByTagName("occupation").Item(ivar)
        wks.Cells(478, 4 + numvar) = oNode.SelectSingleNode("occupation").Text

Les valeurs pour les températures de consigne s'exportent bien mais pas celle du mode d'occupation 'error d'execution 91'

Pouvez vous m'aider pour extraire la donnée type de mode d'occupation la valeur (1)?

Merci