Bonjour et meilleurs voeux à toute l'équipe

Voici mon problème.
Je veux parser le flux xml de l'équipe afin de pouvoir l'afficher dans un page html.
Pour cela j'ai écrit le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub main()
 
dim i,lien
dim info(50),link(50)
 
Set xmlDoc=CreateObject("Microsoft.XMLDOM")
xmlDoc.Async="false"
xmlDoc.Load("http://www.lequipe.fr/Xml/actu_rss.xml")
i=0
For Each itemElement In xmlDoc.selectNodes("/rss/channel/item")
info(i)=itemElement.selectSingleNode("title").Text
link(i)=itemElement.selectSingleNode("link").Text
i=i+1
next
 
lien="\lequipe.jpg"
hs.setDeviceString "W50","<table  border='0'><tr><td><IMG SRC='" & lien & "'</td></tr><tr><td>-"&<a href='"&link(0)&"'>info(0)&"</a></td></tr><tr><td>-"&info(1)&"</td></tr><tr><td>-"&info(2)&"</td></tr><tr><td>-"&info(3)&"</td></tr><tr><td>-"&info(4)&"</td></tr></table>" , TRUE
 
 
 
Set xmlDoc=Nothing
 
end sub
L'affichage des infos sur la page web marche impeccablement, mais par contre je n'arrive pas à trouver la syntaxe exacte pour mettre le lien.
Merci pour votre aide

Boboss76