[VBA] Copier le contenu d'une page web PHP
Résolu
TeTeB
-
Tobar4 Messages postés 284 Date d'inscription Statut Membre Dernière intervention -
Tobar4 Messages postés 284 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
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
