Importer une page web en VBA

Résolu/Fermé
Victor Porée
Messages postés
75
Date d'inscription
mardi 11 juin 2013
Statut
Membre
Dernière intervention
30 mai 2017
- 28 mars 2016 à 23:49
Victor Porée
Messages postés
75
Date d'inscription
mardi 11 juin 2013
Statut
Membre
Dernière intervention
30 mai 2017
- 24 août 2016 à 18:14
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,



3 réponses

Victor Porée
Messages postés
75
Date d'inscription
mardi 11 juin 2013
Statut
Membre
Dernière intervention
30 mai 2017
2
24 août 2016 à 18:14
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  

1
cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
710
29 mars 2016 à 10:25
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
0
Victor Porée
Messages postés
75
Date d'inscription
mardi 11 juin 2013
Statut
Membre
Dernière intervention
30 mai 2017
2
29 mars 2016 à 14:59
Bonjour,

Merci pour votre réponse,

Je n'ai aucune connaissance en VBA, pourriez-moi m'expliquer davantage la démarche ?
0
cs_Le Pivert
Messages postés
7751
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
24 mai 2022
710
29 mars 2016 à 15:10
0