Bonjour

J'utilise une fonction pour récupérer le source d'une page HTML via un composant Inet pour ensuite effectuer une recherche dans le fichier texte créé. Bizarrement la fonction qui a très bien tournée jusqu'à présent ne me renvoie plus qu'une toute petite partie du source.

Voila la fonction. Je répète que celle-ci a bien fonctionnée jusqu'a présent.

Function getsourcehtml(adresse As String) As String
On Error Resume Next
        Dim codeHTML As String, ladresse
                With Inet1
                .AccessType = icUseDefault
                .Protocol = icHTTP
                codeHTML = .OpenURL(adresse, icString)
                Do Until .StillExecuting = False
                        DoEvents
                Loop
        End With
getsourcehtml = codeHTML
End Function

Avez-vous une idée ??

Par avance merci de vos avis.

Salut,

tu dois récuperer des morceaux (methodes GetChunk) si OpenURL n'a pas pu tout rappatrier... (tant que StillExecuting)

salut,
jète un oeil sur ce snippet

++

---

Prenez un instant pour répondre à ce sondage svp

Salut merci de vos reponses................; j ai vire le on resume next, aucune erreur n'est generee le fichier texte est incomplet........ il ne recupere que les 13 premieres lignes........ (en passant sous word on trouve 1017 caracteres recuperes j ia pense pendant un moment a une limite... 1024 quelque chose mais non...... A RENFIELD j ai pas tout compris ton message la...... quant a PCPT je ne cherche qu'a recuperer le code source de la page pas de fichier...... le module trouve sur le snippet dont tu parles ressemble a celui que j utilise....... (simple changement dans le type de variable recupere).......