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

Résolu/Fermé

TeTeB - 24 déc. 2010 à 14:44
Tobar4 Messages postés 261 Date d'inscription jeudi 28 janvier 2010 Statut Membre Dernière intervention 7 avril 2014 - 26 mars 2013 à 17:11

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

A voir également:

[VBA] Copier le contenu d'une page web PHP
Supprimer une page word - Guide
Traduire une page web - Guide
Copier une vidéo youtube - Guide
Instagram web - Guide
Créer une page facebook - Guide

3 réponses

Réponse 1 / 3

TeTeB
27 déc. 2010 à 08:58

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

Tobar4 Messages postés 261 Date d'inscription jeudi 28 janvier 2010 Statut Membre Dernière intervention 7 avril 2014 94
26 mars 2013 à 17:11

Bonjour,

Vous savez comment faire avec Mozilla ?

Merci,

Réponse 2 / 3

TeTeB
27 déc. 2010 à 07:58

Big up svp

Réponse 3 / 3

TeTeB
27 déc. 2010 à 08:25

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

Discussions similaires

[PIX] Commencer chaque poème sur une nouvelle page

Dessiner avec son clavier et avec des lettres

Chemin Logo du site de la Cité de l'espace

connection ok mais aucune page ne s'affiche

Discussions similaires

Newsletters