Lecture du fichier status.xml de l'IPX 800 et archivage des données dans un fichier Excel

L’ IPX800 V3 est un contrôleur Ethernet qui est commercialisé par GCE Electronics.
Ceux qui ne connaissent pas encore ce produit peuvent découvrir ses caractéristiques ici:
http://www.gce-electronics.com/fr/57-carte-8-relais-ethernet-ip-ipx800-v3.html
Un fichier au format XML contient le status de toutes les E/S de l’IPX800. Pour y accéder
saisir l’adresse IP de l’IPX dans votre navigateur puis le nom du fichier XML. Chez moi:
http://192.168.0.60/status.xml
Une fenêtre de login s’ouvre alors:
2015-04-15_120357
Saisissez votre Login et votre mot de passe, le contenu du fichier XML apparaît dans le navigateur.
J’ai pour ma part créé une petite macro sous excel 2010 qui me permet de récupérer automatiquement les données.A chaque exécution de la macro une nouvelle ligne est rajoutée. Le code VBA:
 

Sub auto_open()
'On recherche la 1ère ligne vide pour connaître l'endroit ou lancer l'importation
For n = 1 To 1000
lecture = (Cells(n, 1).Value)
If lecture = "" Then
reference = "$A$" & CStr(n)
Exit For
End If
Next n
'Lecture du fichier status.xml dans l' IPX800
ActiveWorkbook.XmlImport URL:="http://monlogin:monmotdepasse@192.168.0.60:80/status.xml", _
ImportMap:=Nothing, Overwrite:=True, Destination:=Range(reference)
Columns("A:AF").Select
Selection.ColumnWidth = 3
Columns("I:AF").Select
Selection.EntireColumn.Hidden = True
Columns("BO:BZ").Select
Selection.ColumnWidth = 5
Cells(n + 1, 1).Select
End Sub