Importer une page web en VBA

Sub URL_Static_Query()
 
 With ActiveSheet.QueryTables.Add(Connection:= _
 "URL;http://quote.money.cnn.com/quote/quote?symbols=msft", _
 Destination:=Range("a1"))
 
 .BackgroundQuery = True
 .TablesOnlyFromHTML = True
 .Refresh BackgroundQuery:=False
 .SaveData = True
 End With
End Sub  

Option Explicit
Dim LeLien As String
Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
        "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
        ByVal szFileName As String, ByVal dwReserved As Long, _
        ByVal lpfnCB As Long) As Long
Private Sub CommandButton1_Click()
LeLien = "http://www.commentcamarche.net/forum/affich-33335192-importer-une-page-web-en-vba" ' a adapter
 URLDownloadToFile 0, LeLien, Application.ActiveWorkbook.Path & "\Importer une page web en VBA.html", 0, 0 'a adapter l'enregistrement
 MsgBox "Enregistrer dans le dossier du classeur"
End Sub