Extraction Code Source site internet réduit à 531 ligne

Bonjour

Je me permet de revenir vers vous car apres une recherche sur ce forum j'ai trouvé ce code https://forum.excel-pratique.com/post428259.html?hilit=queryurl#p428259

Sub queryurl()

    Set ie = CreateObject("InternetExplorer.application")

    qurl = "https://www.leboncoin.fr/motos/offres/bretagne/occasions/?th=1&q=forty%20eight%20stage&parrot=0&pe=14&rs=2010&me=10000&ccs=1000"

    ie.navigate qurl
    t = Timer
    timeout = False
    'On Error GoTo terreur
   Do

    DoEvents
    Loop Until ie.readyState = 4
    Set doc = ie.document

    montexte = Split(doc.body.innerHTML, vbCrLf)

    For Maligne = 0 To UBound(montexte)
        Range("A" & Maligne + 1).Value = montexte(Maligne)
    Next Maligne

End Sub

Je voulais m'en servir pour recupere la liste des article qui m'interesse le seul soucis c'est que cela n'extrait pas en totalité le code source mais seulement le debut donc ne me sert à rien et je ne sait pas trop dans quel direction regardé pour reusssir a extraire la totalité?

NB: Avant tout commentaire sur l'extraction d'info du site leboncoin je tient a souligner que c'est dans un usage strictement privée et avec l'accord préalable de la Societe LeBonCoin

Cordialement

Bonjour,

J'ai l'impression que tu as tout.

Mais parfois avec plusieurs lignes dans une cellule, et excel n'affiche que le début, il faut aller dans l'édition de la cellule pour avoir la totalité.

Tes 531 lignes copiées collées dans un editeur texte en font 893.

En vba tes lignes dans une cellule doivent être séparées par des vbLF.

eric

En effet mille excuse pour le dérangement en effet je comparait uniquement le nombre de ligne et pas le contenu :/ Merci en tout cas de ce retour rapide efficace et précis