Importer une page web en VBA
Résolu/Fermé
Victor Porée
Victor Porée
- Messages postés
- 75
- Date d'inscription
- mardi 11 juin 2013
- Statut
- Membre
- Dernière intervention
- 30 mai 2017
Victor Porée
- Messages postés
- 75
- Date d'inscription
- mardi 11 juin 2013
- Statut
- Membre
- Dernière intervention
- 30 mai 2017
A voir également:
- Importer une page web en VBA
- Importer une page web en VBA ✓ - Forum - Excel
- Import multiple page web chacune dans une nouvelle feuille ✓ - Forum - Excel
- Fermer page web en VBA EXCEL depuis une UserForm ✓ - Forum - Excel
- Vba ouvrir une page web - Conseils pratiques - Excel
- VBA/html : Select option dans la liste déroulante d'une page web ✓ - Forum - VB / VBA
3 réponses
Victor Porée
24 août 2016 à 18:14
- 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
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 :
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
cs_Le Pivert
29 mars 2016 à 10:25
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
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:
Ensuite faire F5
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
Victor Porée
29 mars 2016 à 14:59
- Messages postés
- 75
- Date d'inscription
- mardi 11 juin 2013
- Statut
- Membre
- Dernière intervention
- 30 mai 2017
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 ?
Merci pour votre réponse,
Je n'ai aucune connaissance en VBA, pourriez-moi m'expliquer davantage la démarche ?
cs_Le Pivert
29 mars 2016 à 15:10
- Messages postés
- 7751
- Date d'inscription
- jeudi 13 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 24 mai 2022
29 mars 2016 à 15:10
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
https://silkyroad.developpez.com/VBA/DebuterMacros/#LII-A
https://silkyroad.developpez.com/VBA/UserForm/
https://silkyroad.developpez.com/VBA/ControlesUserForm/#LI