Bonjour à tous.

Je me suis lancé dans la création d'un petit soft pour traiter des courbes issus de fichier .csv
Finalisé ou enfin presque .

Le soft permet d'importé deux fichés .csv et faire plein de chose avec, cella fonctionne très bien.
Le petit bémol est que je vais le diffuser à plusieurs personnes et donc celui-ci va être trituré dans tous les sens, il y a de forte chance que des erreurs d’exécution vont faire éruption.

j'ai déjà ma petite idée, forcement l'un d'eux va vouloir importer le mauvais .csv juste pour voir ce qu'il va se passer.

Voila pourquoi j'aimerais savoir comment générer des messages personnalisé lors d'erreur d'exécution.

j'ai déjà cherche mais ça reste vague

je pence utiliser (Try...Cath) mais je ne comprend pas vraiment comment ça marche

Maintenant je ne sais pas se qui est possible, soit une code qui permet de gérer n'importe qu'elle erreur à n'importe qu'elle moment du scripte, ou bien cibler les SUB sensible à vous de me dir.

Voici par exemple un petit morceau du soft qui me permet d'importer mes .csv dans des datagrid
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
 
'********************************importer Paire ************************************************
    Public Sub importation_paire()
 
        '*******************************config recherche de fichier************************
        Dim fileName As String
 
        OpenFileDialog1.Multiselect = False
        OpenFileDialog1.FileName = String.Empty
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.Filter = "Fichiers texte|*.csv|Tous les fichiers|*.*"
 
        '****************************importation dans table dt_fulldata********************
 
        MsgBox("Ouvrir le fichier FullData.csv")
 
        If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
 
            fileName = OpenFileDialog1.FileName
            Dim SR_fulldata As StreamReader = New StreamReader(fileName)
            Dim line As String = SR_fulldata.ReadLine()
            Dim strArray As String() = line.Split(";"c)
            Dim row As DataRow
 
            For Each s As String In strArray
                dt_fulldata.Columns.Add(New DataColumn())
            Next
 
            row = dt_fulldata.NewRow()
            row.ItemArray = line.Split(";"c)
            dt_fulldata.Rows.Add(row)
 
            Do
                line = SR_fulldata.ReadLine
                If Not line = String.Empty Then
                    row = dt_fulldata.NewRow()
                    row.ItemArray = line.Split(";"c)
                    dt_fulldata.Rows.Add(row)
                Else
                    Exit Do
                End If
            Loop
 
            dt_fulldata.Rows(1).Delete()
 
            '***********************importation dans table dt_data************************
 
            MsgBox("Ouvrir le fichier data.csv")
 
            If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
                fileName = OpenFileDialog1.FileName
                Dim SR_data As StreamReader = New StreamReader(fileName)
 
                Dim line2 As String = SR_data.ReadLine()
                Dim strArray2 As String() = line2.Split(";"c)
                Dim row2 As DataRow
 
                For Each s As String In strArray2
                    dt_data.Columns.Add(New DataColumn())
                Next
                dt_data.Columns.Add(New DataColumn())
 
 
                row2 = dt_data.NewRow()
                row2.ItemArray = line2.Split(";"c)
                dt_data.Rows.Add(row2)
 
 
                Do
                    line2 = SR_data.ReadLine
                    If Not line2 = String.Empty Then
                        row2 = dt_data.NewRow()
                        row2.ItemArray = line2.Split(";"c)
                        dt_data.Rows.Add(row2)
                    Else
                        line2 = SR_data.ReadLine
                        If Not line2 = String.Empty Then
                            row2 = dt_data.NewRow()
                            row2.ItemArray = line2.Split(";"c)
                            dt_data.Rows.Add(row2)
                        Else
                            Exit Do
                        End If
                    End If
                Loop
 
              et ...
Merci d'avance.