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