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

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

Discussions similaires

Newsletters