Bonjour,
Voici un extrait de mon code qui va lire un fichier contenant une liste d'adresses internet qui sur celles-ci récupère des valeurs, tout fonctionne sauf lorsque j'ai une page 404 not found, une erreur n° 91 est générée à l'instruction html_Element1 = web.Document.GetElementById ... et la procédure gestion des erreurs est exécutée.et là fin du programme.
Comment puis-je procéder afin que le programme continue à tourner (parce que la page suivant n'est peut-être pas 404 not found).

merci

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Public Sub P2_telecharge_cour_isin()
 
        For y = 1 To nbre_de_PF
            filename_url = "C:\vb\PF" & y & "\url\url.txt"
            source_isin = "C:\VB/PF" & y & "/cours/"
            source_lock = "C:\VB/PF" & y & "/lock/"
 
            Dim filelines() As String = File.ReadAllLines(filename_url)
 
 
            If (filelines.Length > 0) Then
                For x = 1 To filelines.Length
                    Label6.Text = " un instant svp ... " & "PF" & y & " " & x & "/" & filelines.Length
                    z = filelines.Length
                    web.ScriptErrorsSuppressed = True
                    WebBrowser1.ScriptErrorsSuppressed = True
                    web.Navigate(filelines(filelines.Length - x))
                    While (Not web.ReadyState = WebBrowserReadyState.Complete)
                        Application.DoEvents()
                    End While
                    WebBrowser1.Url = web.Url
                   
                    REM Label6.Text = ""
                    Label6.Text = "PF" & y & " " & x & "/" & filelines.Length
'ici erreur
                    html_Element1 = web.Document.GetElementById("overviewQuickstatsDiv").InnerHtml
                    html_Element2 = web.Document.GetElementById("snapshotTitleDiv").InnerHtml
                    Call P2_1_affichage_isin(y)     ' affiche a l'ecran les valeurs à gauche
                Next x
            Else
                Result = MessageBox.Show(Me, "le fichier url.txt du répertoire PF" & y & " est vide", "erreur fichier", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            End If
        Next y
        Label6.Text = ""
    End Sub
 
gestion_des_erreurs:
        If Err.Number = 91 Then 'erreur d'une page 404 not found
 
            Result = MessageBox.Show(Me, "j'enregistre pas le fichier " & x & "/" & z & " car la page web est inaccessible", "erreur", MessageBoxButtons.OK, MessageBoxIcon.Stop)
            On Error GoTo 0
 
            Resume Next
        Else
 
            If Err.Number() <> 0 Then
                Result = MessageBox.Show(Me, "Erreur n° " & Err.Number & vbCrLf & "Description : " & Err.Description, "Erreur d'execution", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            End If
        End If
    End Sub