Rapport de message :*
 

Re: Récupération de données sur le web

Titre du sujet : Re: Récupération de données sur le web
par eideal44 le 03/11/2011 14:06:00

Bonjour,

Je reviens vers vous au sujet de la recuperation de données sur le web.

Je suis en train de créer un fichier comparatif car pour le travail, je dois comparer tous les jours de nombreux produits.

Pour cela, je compare chez icomparateur mais je n'arrive pas à récupérer le PRIX TTC.

J'ai modifié le code initial mais j'aimerais qu'il m'indique le PRIX D'ACHAT TTC avec 2 chiffres après la virgule.
Le fichier me récupère bien le PRIX HORS TAXE et les FRAIS DE PORT :

Dim vUrl As String, T As String
Dim L As Long, Lmax As Long
    Application.ScreenUpdating = False
    Set IE = CreateObject("internetExplorer.Application")
    'afficher IE
    IE.Visible = True
   
    With Sheets("www.i-comparateur.com")
        'ici : 6 =F
        Lmax = .Cells(.Rows.Count, 6).End(xlUp).Row
        'debut de la ligne : ici ligne 5
        For L = 5 To Lmax
            Application.StatusBar = (L - 4) * 100 \ (Lmax - 4) & "%... " & .Cells(L, 2).Text
            'URL
            'ici : 6 =F
            vUrl = .Cells(L, 6).Text
            'Ouvre la page web dans IE de façon invisible
            IE.Navigate vUrl
            Do Until IE.ReadyState = READYSTATE_COMPLETE
                DoEvents
            Loop
            T = IE.Document.body.innerText
            'PRIX D'ACHAT
            .Cells(L, 3).Value = Val(Mid(T, InStr(1, T, "En stock") + 8))
            'FRAIS DE PORT
            .Cells(L, 4).Value = Val(Mid(T, InStr(1, T, "+ port : ") + 9))         
        Next L
    End With
   
    'Quitter IE
    IE.Quit
    Set IE = Nothing
    Application.StatusBar = False
    Application.ScreenUpdating = True
    MsgBox "Mise à jour effectuée !", vbInformation + vbOKOnly
End Sub

mais j'aimerais savoir si dans le code on pourrait récupérer le TTC sachant qu'en plus le produit n'est pas toujours "en stock"

j'ai pensé à récupérer le FRAIS DE PORT, à faire ensuite un NBCAR pour avoir le nombre de lettres et à récupérer le texte après les frais de port mais ça ne fonctionne pas.

je ne vois pas d'autres solutions à mon problème, pouvez vous m'aider s'il vous plait car je n'avance pas et je gagnerais énormément de temps?

je vous joint en pièce jointe mon fichier.

en beaucoup moins urgent, j'ai 2 autres petites questions, voir si c'est possible ou non :

- avons nous également la possibilité de remonter le NOM DU SITE où le produit est le moins cher?
- Pouvons nous faire cette extraction pour les 3 premiers sites ou c'est trop complexe?

Cordialement.

Eideal44