Excel vs Le Bon Coin

Bonjour Steelson

Moi non plus je n'ai pas 100 voitures... tu penses bien ! sinon je ne serais pas là

Merci pour ta contribution

Bonjour

James ? As-tu trouvé un moment pour jeter un œil à ces champs récalcitrants ? De mon côté rien de très concluant...

Bonjour,

Désolé ... ta question m'est complètement sorti de la tête ...

Du coup, aucun test ... mais promis ... ton sujet est 'remonté' dans la liste ...

Bonjour,

J'avais même oublié le code ci-dessous ... il y a quelques messages ...

Sub TestBonCoin()
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    objIE.Navigate "https://www.leboncoin.fr/ai/form/0?ca=22_s"
    Do While objIE.ReadyState <> 4 Or objIE.Busy
        DoEvents
    Loop
    Set objDocument = objIE.document
    Set colForms = objDocument.forms
    Set objForm = colForms(0)
    Set colInputTags = objForm.getElementsByTagName("input")
    For n = 0 To colInputTags.Length - 1
        Set objInputTag = colInputTags(n)
    Next n
    ' region 49 value 22
    ' zipcode 47 'OU' city 48
   Set objElement = colInputTags(47)
    objElement.Value = "74000"
   ' OU ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Set objElement = colInputTags(48)
    objElement.Value = "Annecy"
End Sub

As-tu testé le upload uniquement d'un seul de ces deux champs ... car je viens de remarquer sur ton formulaire que le choix est offert à l'utilisateur ...???

Bonjour James007

Je viens d'essayer (une nouvelle fois, d'ailleurs, car en réalité j'avais déjà avec debug cette solution)... il est vrai que "sur le site" tu peux saisir l'un et/ou l'autre... mais rien de mieux !

Par contre je vais essayer une autre méthode... il me semble que je tiens une piste... je te tiens au courant

Merci, pour ton aide en tout cas !

Bonsoir NCC 1701,

J'ai entamé le même projet que toi, mais je bloque également sur l'incrémentation de la localisation.

As tu trouvé une solution ou une piste ?

J'en suis à ce stade :

    IE.document.parentWindow.execScript "javascript:document.formular.region.value='12';"
    IE.document.parentWindow.execScript "javascript:document.formular.dpt_code.value='75';"
    IE.document.parentWindow.execScript "javascript:document.formular.zipcode.value='75020';"
    IE.document.parentWindow.execScript "javascript:document.formular.city.value='Paris';"

A bientôt