Importer une page web en VBA Résolu

Question

Bonjour, 

Malheureusement, et scandaleusement, Excel 2016 sur Mac ne propose pas la commande importer à partir d'une page web. Je cherche donc une macro capable de le faire.

Merci,


Configuration: Mac OS X El Capitan
Microsoft Office 2016

cs_Le Pivert · Answer

Bonjour,

En vba faire Alt F11 pour accéder à l'éditeur. Inserer un UserForm, mettre un CommandButton et double cliquez dessus et mettre ce code:

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
 

Ensuite faire F5

cs_Le Pivert · Answer

Je suis Windows10, en Mac je ne sais pas. Voici quelques liens pour aborder les macros:

 https://silkyroad.developpez.com/VBA/DebuterMacros/#LII-A

https://silkyroad.developpez.com/VBA/UserForm/

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LI

Victor Porée · Answer

J'ai finalement trouvé mon bonheur dans cet article :

https://docs.microsoft.com/fr-fr/previous-versions/office/developer/office-2003/aa203721(v=office.11)?redirectedfrom=MSDN

Leur code fonctionne parfaitement sur Mac :

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

Importer une page web en VBA

3 réponses

Discussions similaires

Newsletters