[VBA] Copier le contenu d'une page web PHP
Résolu
TeTeB
-
Tobar4 Messages postés 261 Date d'inscription Statut Membre Dernière intervention -
Tobar4 Messages postés 261 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je débute sur la Référence Microsoft Internet Control. J'ai une macro qui ouvre la page web demandée et la macro doit copier son contenu dans une feuille:
C'est la partie du code qui bloque, à savoir le selectAll tout d'abord que je n'arrive pas à faire. J'ai essayé sendkeys et d'autres choses mais rien n'y fait, je suis mauvais.
PS: j'arrive pas non plus à faire marcher le "Delai(1000)" soit disant important pour la machine.
En vous remerciant d'avance pour votre aide,
cordialement
TeTeB
je débute sur la Référence Microsoft Internet Control. J'ai une macro qui ouvre la page web demandée et la macro doit copier son contenu dans une feuille:
Sub téléchargement() Dim Page As New InternetExplorer Topic = forum/programmation-3/new 'Ouverture du navigateur Page.Navigate "https://www.commentcamarche.net/" & topic Page.Visible = True ' Fonction simple de délai 'delai (1000) Page.Document.SelectAll Selection.Copy Workbooks("Code bare.xls").Activate ActiveSheet.Paste End Sub
C'est la partie du code qui bloque, à savoir le selectAll tout d'abord que je n'arrive pas à faire. J'ai essayé sendkeys et d'autres choses mais rien n'y fait, je suis mauvais.
PS: j'arrive pas non plus à faire marcher le "Delai(1000)" soit disant important pour la machine.
En vous remerciant d'avance pour votre aide,
cordialement
TeTeB
A voir également:
- [VBA] Copier le contenu d'une page web PHP
- Supprimer une page word - Guide
- Web office - Guide
- Comment copier une vidéo youtube - Guide
- Comment traduire une page web - Guide
- Capturer une page web complète - Guide
3 réponses
J'ai résolu mon problème, pour les futures intéressés:
Public bor As String Sub téléchargement() Dim Page As New InternetExplorer 'Ouverture du navigateur Page.Navigate "https://www.commentcamarche.net/" & topic Page.Visible = True ' Fonction simple de délai 'delai (1000) Application.StatusBar = "Merci de patienter" Application.Wait Now + TimeValue("00:00:10") Application.StatusBar = False 'Copier/coller With Page.Document Application.SendKeys "^a" Application.Wait Now + TimeValue("00:00:1") Application.SendKeys "^c" End With Page.Quit Workbooks("Code bare.xls").Activate Range("a1").Select ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:= _ False End Sub
With ActiveSheet.QueryTables.Add(Connection:= _ "https://www.commentcamarche.net/" & topic, _ Destination:=Range("a1")) .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False End With
J'ai également essayé ce code sans succès visible parce qu'il est destiné au html
Vous savez comment faire avec Mozilla ?
Merci,