Controler si un noeud existe dans un XML

[psykodumarteau]

Bonjour,

Je cherche à contrôler si un nœud existe dans un fichier XML avec de récupérer les données qu'il contient. Voici mon code

 
Set rcdst = CurrentDb.OpenRecordset("BUYERS")
For Each NodeData In DomDoc.documentElement.selectNodes("/as:SupplySchedule/as:BuyerParty/asram:AeroSpaceOrganization")
Set NodeItem = NodeData.cloneNode(True)
rcdst.AddNew
rcdst.Fields("GLOBAL_UNIQUE_ID") = GlobalUniqueID
rcdst.Fields("NAME") = NodeItem.selectNodes("/asram:NameText").Item(0).Text
rcdst.Fields("REGISTRATION_ID") = NodeItem.selectNodes("/asram:RegistrationIdentifier").Item(0).Text
rcdst.Fields("UNIT_NAME_CODE") = NodeItem.selectNodes("/asram:UnitNameText").Item(0).Text
rcdst.Fields("ACTIVITY_CODE") = NodeItem.selectNodes("/asram:Code").Item(0).Text
rcdst.Fields("@CITY_NAME") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:CityName").Item(0).Text
 
'A partir d'ici il faut que je contrôle l'existence des nœuds avant d'effectuer les affectations
rcdst.Fields("@LINE_ONE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineOneText").Item(0).Text
rcdst.Fields("@LINE_TWO") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineTwoText").Item(0).Text
rcdst.Fields("@LINE_THREE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineThreeText").Item(0).Text
rcdst.Fields("@LINE_FOUR") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineFourText").Item(0).Text
rcdst.Fields("@LINE_FIVE") = NodeItem.selectNodes("/asram:AeroSpaceAddress/asram:LineFiveText").Item(0).Text
rcdst.Update
Next
rcdst.Close
 

Merci de votre aide