Import de données xml dans une feuille excell

[Amdio]

Bonjour,

Je suis entrain d'écrire un macro qui permet de récupérer des paramètres d'un formulaire d'un site web pour les mettre dans une feuille excel.

Voila le site qui est sous cette forme:
"http://mon site.fr/raw.php?username=xxx&password=xxx&day=&month=&number=xxx"

Le but est que la personne rentre ces paramètres (username, password...) à partir d'un formulaire que j'ai fait sur visual basic pour qu'il lui affiche les données qu'il veux.

Pour cela j'ai fait le formulaire, j'ai aussi écrit un code VBA qui essaie de recharger le données du site pour afficher les résultats, mais j'ai de gros problèmes pour y arriver, je ne sais pas si j'ai un problème de syntaxe pour appeler mon url ou bien.
A noter que je suis débutant en VBA c'est la première fois que le fais.

Voici le code que j'ai fait:

Sub Statistique(username As String, password As String, day As Integer, month As Integer, number As Integer)

Dim XM As XmlMap
Dim url As String

Set url = "https://monsite.fr/raw.xml?username=" & username & "&password=" & password & "

MsgBox (url)


'Importe le fichier dans une cellule.
ThisWorkbook.XmlImport _
url, _
ImportMap:=Nothing, _
Overwrite:=True, _
Destination:=Worksheets("Feuil1").Range("$A$1"), _
Worksheets("Feuil1").Range("$A$1").CleanContents

'Définit le mappage qui vient d'être ajouté.
'ThisWorkbook.XmlMaps.Count correspond au dernier xml mappé dans le classeur
Set XM = ThisWorkbook.XmlMaps(ThisWorkbook.XmlMaps.Count)


MsgBox "Import terminé" & vbCrLf & _
XM.RootElementName & vbCrLf & _
XM.Name & vbCrLf & _
XM.DataBinding.SourceUrl

End Sub


Et pour le formulaire j'ai fait ceci, j'ai fait ceci pour appeler ma fonction Statistique et l'exécuter, mais il me dit l'erreur: "fonction ou variable attendu" ce que je comprend pas.
Private Sub Afficher_Donnees_Click()

Dim res As String
res = Statistique(username.Value, password.Value, day.Value, month.Value, number.Value)

End Sub


Quelqu'un a t-il une idée svp!

Merci!

Amdio