Problème de choix multiple

[alainkb]

Bonjour,
J'utilise excel 2002 SP3.
Jusqu'à présent j'utilisais une macro pour extraire des données d'un fichier xml vers une feuille excel. Le fichier xml était un ensemble de fiches repérées par une balise unique "<mvtAssignation>". La structure de mon fichier vient de changer et maintenant les fiches sont marquées par différentes balises de type : "<F01>", "<F02>", "<F03>". Ma recherche sur la balise unique n'est plus valable.
Merci de l'aide que vous pourrez m'apporter.


Voici le morceau de code qui me pose problème.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' vérification du format XML '''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Line Input #1, Line
Line Input #1, Line
If InStr(Line, "<listeMvtAssignations versionOuti") = 0 Then
a = MsgBox("Le fichier n'est pas un fichier d'assignation, vérifier le fichier", vbOKOnly)
Exit Sub
End If

'''''''''''on ouvre le fichier XML pour lecture et récupération des informations
''''''''''' on va lire le fichier jusqu'à la fin
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
While InStr(Line, "</listeMvtAssignationsServiceTerre>") = 0

While InStr(Line, "<mvtAssignation>") = 0 And InStr(Line, "</listeMvtAssignationsServiceTerre>") = 0
Line Input #1, Line
Wend
''''''''''' on a trouvé une nouvelle assignation on va donc récupérer les informations
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
While InStr(Line, "</mvtAssignation>") = 0 And InStr(Line, "</listeMvtAssignationsServiceTerre>") = 0
Line Input #1, Line

'''''''''''''''''''''''''''''''''''''''
''' Ajout de code '''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''

Balise = "</antenne>"
If InStr(1, Line, Balise) <> "0" Then
finAntenne = True
If nbEmplOuvert = 1 Then finAntenneEmplacement = True
nbAntenneOuverte = nbAntenneOuverte - 1
End If

Balise = "</emplacement>"
If InStr(1, Line, Balise) <> "0" Then
finEmplacement = True
nbEmplOuvert = nbEmplOuvert - 1
End If

Balise = "</mvtAssignation>"
If InStr(1, Line, Balise) <> "0" Then
nbAssign = nbAssign - 1
ReDim Preserve Assignations(nbColonneTab, nbAssign)
iTx = 0
End If