Discussion :

[cemyr]

Bonjour,

J'ai un problème étrange et vous appelle au secours

Je dois récupérer des données d'un site internet à partir de VBA. Pour cela j'utilise une boucle car j'ai plusieurs pages à récupérer.

Le mode pas à pas me confirme que j'accède bien à toute les pages. Mais le Download ne fonctionne que pour les 2 premières!!! Pour les autres, "il" enregistre une page d'erreur d'accès à la page de mon site (comme si j'essayais d'accéder sans m'être identifier)

Je sais que c'est un peu vague et je vais difficilement pouvoir vous montrer tout mon programme mais en voici un extrait :

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
 
 
'Fonction vérifiant la réussite de l'enregistrement
Public Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
    Dim lngRetVal As Long
    DownloadFile = URLDownloadToFile(0&, sURL, sLocalFile, 0&, 0&) = ERROR_SUCCESS
End Function
 
Sub EnregistrementHTML(VB1 As String, VB2 As Integer)
 
Dim page As String 'Adresse de la page internet à enregistrer
 
   Call Log  ' Appel de la procédure permettant de se connecter et de s'identifier sur le site en question 
 
 
For Compteur = 1 To 5
    IE.navigate ("https://www...")  'Accès à la pages contenant toutes les autres à télécharger
   ' Attente de fin de chargement
    While IE.Busy
        DoEvents
    Wend
    page = "https://www..." & compteur  'Accès à la page contenant mes infos
    IE.navigate (page)
    ' Attente de fin de chargement
     While IE.Busy
        DoEvents
     Wend
 
   DownloadFile page, Chemin & "\Tab" & compteur & ".html"
 
Next
 
End sub

[Arkham46]

bjr,

il y a https à certains endroits du code
est-ce que les pages en erreur sont sur un serveur sécurisé https et celles qui se téléchargent sur un serveur "normal" http?

[cemyr]

Non, toutes mes pages sont en https

J'ai l'impression d'être déconnectée du site entre le moment où j'accède à ma page et celui où je l'enregistre !!!!!!!!!

[Arkham46]

Non, toutes mes pages sont en https

J'ai l'impression d'être déconnectée du site entre le moment où j'accède à ma page et celui où je l'enregistre !!!!!!!!!

alors je ne sais pas désolé

tu peux toutefois tester avec ce code en remplacement de URLDownloadToFile si ça peut aider :
http://www.developpez.net/forums/d10...e/#post5602902

[cemyr]

Avant d'enregistrer ma page, il faudrait que je puisse détecter si elle contient un message d'erreur. Si message d'erreur il y a, il est toujorus identique et placé au même endroit de ma page.

Y'a t-il un moyen simple de rechercher une chaine de caractère sur une page web?

Merci,

[cemyr]

J'ai effectivement trouver un moyen simple de detecter un message d'erreur sur une page web :

InStr(IE.document.body.innerHTML, "Mon message d'erreur")

mais mon problème persiste!!!

voici à quoi ressemble mon programme après m'être connectée et avoir navigué sur le site jusqu'à la page recherchée :

Code :

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

1
2
3
 
IE.navigate (mapage) 'Fonctionne très bien, en mode "débugage pas à pas" je confirme que ma page s'ouvre bien
a= URLDownloadToFile(0, mapage, monchemin, 0, 0) 'Enregistre la page comme si j'y accédais sans m'être identifier avant!!!

Je tourne en rond avec ce pb ... a l'aideeeeeeeeil existe effectivement un moyen s

La fonction DownloadFile poserait-elle un problème lorsque l'URL contient un caractère spécial (à tout hasard un "?") ???