Récupérer sous Excel le contenu de la page HTML en cours de l'explorer

Récupérer sous Excel le contenu de la page HTML en cours de l'explorer - VB/VBA/VBS - Programmation

Marsh Posté le 31-08-2005 à 18:53:35    

je voudrais récupérer le contenu de la page ouverte de l'explorer sous Excel
 
firefox ou Ie est ouvert sur une page
j'ai aussi Excel d'ouvert
et à partir d'une macro je veux choper le contenu de la page courante directement et mettre à jour mon fichier excel (j'ai pas l'adrrese exacte de la page).
 
c'est possible?
 
merci

Reply

Marsh Posté le 31-08-2005 à 18:53:35   

Reply

Marsh Posté le 31-08-2005 à 19:04:58    

ca dépend ce que tu appelles par contenu, page entière ou le code de celle-ci.
 
Pour ton info, en VBA il existe des ocx (modules si tu veux) qui te permettent de faire cela. Mais, si tu ne connais pas la page web...
Si un simple copier coller ne te rebutte pas je pense que c'est faisable.


---------------
now : do nothing
Reply

Marsh Posté le 01-09-2005 à 10:54:17    

Je pense que tu dois connaitre quel est la page a récupérer... dans ce cas la, ca me parrait plus simple de lancer ton browser a partir de ta macro, puis de recuperer via un copier-coller, et enfin de refermer la page ouverte..
Et ta macro marchera sans que tu es besoin d'afficher la page

Code :
  1. Private Sub wait(Secondes As Integer)
  2. ' Cette procédure temporise pendant le nombre
  3. ' de secondes qu'on lui transmet en argument
  4. Dim Début As Long, Fin As Long, Chrono As Long
  5.     Début = Timer
  6.     Fin = Début + Secondes
  7.     Do Until Timer >= Fin
  8.         DoEvents
  9.     Loop
  10. End Sub
  11. Public Sub runIEAndCopyPaste()
  12. Dim dRetVal As Double
  13. Dim wb As Workbook
  14. dRetVal = Shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.google.fr/search?q=hello+world", vbNormalFocus)
  15. wait 2
  16. SendKeys "^a^c", True
  17. wait 1
  18. SendKeys "%{F4}", True
  19. Set wb = Workbooks.Add
  20. wb.Worksheets(1).Paste
  21. End Sub


---------------
Guendalf
Reply

Marsh Posté le 01-09-2005 à 13:39:05    

Excellent! Guendalf

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed