Discussion :

[hortencia]

Bonjour et merci à tous pour l'aide que vous apportez sur ce forum chaque jour.

Je souhaiterais savoir s'il est possible de récupérer des prix de produits sur internet.
Je dois récupérer manuellement des prix de produits listés dans un tableau excel, sur un site internet au jour le jour et, je voudrais savoir s'il est possible d'automatiser cette tâche qui prend bien trop de temps.

Est-il possible de le faire via une macro (ou éventuellement via un autre langage) ?
Et si oui, pourriez vous m'aider à ce sujet ?

Merci par avance.

Bien Cordialement.

[Marc-L]

Bonjour,

tout dépend de la page Web …

Le plus simple est de commencer par tester avec une QueryTable (Nouvelle requête sur le net, consulter l'aide).
Sinon voir du côté de la Manipulation d'Internet Explorer via VBA et son tutoriel
comme les exemples dans les discussions de ce forum …

[patricktoulon]

Bonjour
si le site ou la page n'est pas confidentiel pourrais tu donner un lien ???

[hortencia]

Bonsoir,

Merci pour vos réponses et merci de l'intérêt que vous portez à ma demande.

Marc-L, je ne sais pas ce qu'est une QueryTable, donc je vais regarder. Merci pour le lien.

Patricktoulon, je souhaiterais récupérer le prix de certains produits sur le site de Carrefour : http://www.carrefour.fr/
Simplement étant donné la pluralité de prix que j'ai a récupérer, je préfèrerais que cela se fasse automatiquement.

Merci encore de votre aide.

Bien Cordialement.

[hortencia]

Bonjour,

Le tutoriel de Qwazerty est juste génial. Merci Qwazerty.
Et une fois de plus merci à toi Marc-L pour le lien.
Du coup navrée de ne pas avoir commencé par là.

Voici le code de Qwazerty relatif à la récupération d'un texte sur une page :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub RecupTextImpots()
'Récupère un texte brut contenu dans une page Web
 
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim HtmlElementStandard As HTMLGenericElement
Dim LeTexteExtrait As String
 
   'Chargement d'une page Web
   IE.Navigate "http://www.impots.gouv.fr/"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le document
   Set IEDoc = IE.document
 
   'Allons chercher ce texte dans notre Item46
   Set HtmlElementStandard = IEDoc.body.all(45)
 
   'On le place dans notre variable prévue à cet effet
   LeTexteExtrait = HtmlElementStandard.innerText
 
   'On affiche le texte
   MsgBox LeTexteExtrait, Title:="Le texte extrait de la page"
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub

J'ai suivi le tutoriel du début donc j'ai fait le lien entre Excel et Internet. J'ai ouvert ma page et découvert le code source etc...
Tout allais bien jusqu'ici.
Mais je suis bloqué sur un point primordial : je ne parvient pas à retrouver dans mon espion l'item correspondant à ma recherche.
Le sien était le 46 mais je ne comprends pas comment on le retrouve.

Dois-je ouvrir chaque item dans (Espion-> Document -> All -> item 1-256) pour y parvenir ?
Le pire c'est que je les ai tous ouverts mais je n'ai pas trouvé la classe que je cherche.

Voici le lien : http://www.ooshop.com/courses-en-lig...UD_IDFO=139766

Et en pièce jointe, une capture avec une capture d'écran du code source et de code source ; le "price " 2.29 que je cherche à récupérer est en jaune.

Merci par avance de vos réponses.
Bien Cordialement.

[Marc-L]

Pointer déjà sur l'élément parent disposant d'un ID …

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub DemoIE()
  Const URL$ = "http://www.ooshop.com/courses-en-ligne/ContentNavigation.aspx?NOEUD_IDFO=139766"
 
    With CreateObject("InternetExplorer.Application")
        .Navigate URL
        While .Busy Or .ReadyState < 4:  DoEvents:  Wend
 
        With .Document.all.ctl00_cphC_pn3T1_ctl01_divContentPromNouv
            T$ = .all(1).alt & vbLf & vbLf & "Prix :  " & .all(2).innerText
        End With
 
        .Quit
    End With
 
    MsgBox T, vbInformation, "          ooshop"
End Sub