Function GetHTMLfromURL en VBA sur Excel pour Mac

Bonjour,

Sous Excel pour Windows, en VBA, il est possible avec cette fonction de télécharger un contenu Web et de la mettre dans une chaine de caractère :

Function GetHTMLfromURL(URL As String) As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
GetHTMLfromURL = .ResponseText
End With
End Function

Cependant, cette fonction ne fonctionne pas sous Excel pour Mac, puisque Mac ne connait pas l'objet MSXML2.XMLHTTP.

Le projet consiste a compléter la fonction suivante :

Function GetHTMLfromURL(URL As String) As String

#If Mac Then

' à compléter

#Else

With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
GetHTMLfromURL = .ResponseText
End With

#End If

End Function

Le code doit être compatible Excel 2016 pour Mac, éventuellement Excel 2010 pour Mac si c'est possible.

Bien cordialement,