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

Signaler
-
Messages postés
261
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
7 avril 2014
 -
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

3 réponses

Réponse 1 / 3

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
3
Merci
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Signaler
Messages postés
261
Date d'inscription
jeudi 28 janvier 2010
Statut
Membre
Dernière intervention
7 avril 2014
 78
Bonjour,

Vous savez comment faire avec Mozilla ?

Merci,
Réponse 2 / 3

Big up svp
Réponse 3 / 3 

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
Posez votre question