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
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
A voir également:
- Vba web
- Web office - Guide
- Navigateur web - Guide
- Adresse web - Guide
- Création site web - Guide
- Traduire une page web - Guide
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
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
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
29 mars 2016 à 10:25
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
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
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
Messages postés
7904
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
14 août 2024
729
29 mars 2016 à 15:10
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