[VBA] Copier le contenu d'une page web PHPRésolu/Fermé

Question

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:



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

TeTeB · Accepted Answer

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

TeTeB · Answer

Big up svp

TeTeB · Answer

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

[VBA] Copier le contenu d'une page web PHP

3 réponses

Newsletters