Discussion :

[arakdur]

Bonjour à tous,


J'ai une feuille avec un bouton qui execute le code ci-dessous :

Code :

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

1
2
3
4
5
Try
Call Procedures.MAJfichierMaladies(My.Settings.pCheminDossierPrincipal & My.Settings.pFichierMaladies)
Catch ex As Exception
MsgBox(ex.Message & " - " & ex.Source)
End Try

J'ai un module nommé Procedures qui contient :

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
Public Sub MAJfichierMaladies(ByVal vChemin As String)
Dim stwMaladies As StreamWriter, vLigne As String, y As Integer
Try
stwMaladies = New StreamWriter(vChemin, False, Encoding.Default)
For y = 0 To mnuParametre.grdMaladies.RowCount - 1
vLigne = mnuParametre.grdMaladies.Item(0, y).Value.ToString & ";" & mnuParametre.grdMaladies.Item(1, y).Value.ToString
stwMaladies.WriteLine(vLigne)
Next
stwMaladies.Close()
stwMaladies = Nothing
Finally
If Not IsNothing(stwMaladies) Then
stwMaladies.Close()
End If
End Try
End Sub

et j'obtiens une exception avec le message :
"La référence d'objet n'est pas définie à une instance d'un objet" et je ne comprends pas car mon streamwriter est défini et une nouvelle instance est bien lancé par "stwMaladies = New StreamWriter(vChemin, False, Encoding.Default)"

Si certain d'entre vous ont des idées, elles sont les beinvenues car je galère là. D'avance merci pour votre aide ...

[quentincabo]

Salut,
Mets,peut-être, quelques points d'arrêt pour dire a quelle ligne cela s'arrête.

[arakdur]

j'en ai mis à plusieurs endroits et tout se déroule bien.
Le fichier est bien mis à jour correctement mais en sortie de l'appel de procédure, il me sort cette exception et du coup si je rajoute du code suite à cet appel, il ne l'execute pas.

[Aspic]

Pas de problème avec ton code chez moi....

Il ne faut plus de précision !

[quentincabo]

J'ai tester ton code et pas de problème non plus

[Aspic]

J'ai tester ton code et pas de problème non plus

lol le problème viens donc de ton application, poste un zip de ton appli on va voir ca ^^

[arakdur]

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
    Public Sub importFichierMaladies(ByVal nomFichier As String)
 
        Dim vPresenceMaladie As String, vAbsenceMaladie As String
 
        Try
            Dim strMaladies As StreamReader = New StreamReader(nomFichier, Encoding.Default)
            Dim vLigne As String = strMaladies.ReadLine()
            While Not vLigne Is Nothing
                vPresenceMaladie = champsDelimite(vLigne, 1, "Interne")
                vAbsenceMaladie = champsDelimite(vLigne, 2, "Interne")
                mnuParametre.grdMaladies.Rows.Add(New String() {vPresenceMaladie.ToString, vAbsenceMaladie.ToString})
                vLigne = strMaladies.ReadLine()
            End While
            strMaladies.Close()
 
        Catch ex As Exception
            MsgBox("Le fichier Maladies.txt n'est pas correct !", 4144, "Avertissement")
 
        End Try
 
    End Sub

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
    Private Function champsDelimite(ByVal vLigne As String, ByVal vPosition As Byte, ByVal vFournisseur As String) As String
 
        Dim i As Integer
        Dim vLongueurLigne As Integer = Len(vLigne)
        Dim vCompteur As Byte = 1
        Dim vValeur As String = vbNullString
 
        For i = 1 To vLongueurLigne
            If vFournisseur = "Externe" Then
                If vCompteur = vPosition Then
                    If Mid(vLigne, i, 1) <> "," Then
                        If Mid(vLigne, i, 1) = "." Then
                            vValeur = vValeur & ","
                        Else
                            vValeur = vValeur & Mid(vLigne, i, 1)
                        End If
                    Else
                        Return vValeur
                    End If
                Else
                    If Mid(vLigne, i, 1) <> "," Then
                        If Mid(vLigne, i, 1) = "." Then
                            vValeur = vValeur & ","
                        Else
                            vValeur = vValeur & Mid(vLigne, i, 1)
                        End If
                    Else
                        vValeur = vbNullString
                        vCompteur = vCompteur + 1
                    End If
                End If
            Else
                If vCompteur = vPosition Then
                    If Mid(vLigne, i, 1) <> ";" Then
                        vValeur = vValeur & Mid(vLigne, i, 1)
                    Else
                        Return vValeur
                    End If
                Else
                    If Mid(vLigne, i, 1) <> ";" Then
                        vValeur = vValeur & Mid(vLigne, i, 1)
                    Else
                        vValeur = vbNullString
                        vCompteur = vCompteur + 1
                    End If
                End If
            End If
        Next
        Return vValeur
 
    End Function

en effet, c'est bien plus lisible ...

[Aspic]

Et sur quelle ligne se situe l'erreur ?

[arakdur]

en fait sur aucune ligne ...
cette exception survient quand je sors de mon appel de procédure ici :

Code :

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

1
2
3
4
5
Try
    Call Procedures.MAJfichierMaladies(My.Settings.pCheminDossierPrincipal & My.Settings.pFichierMaladies)
Catch ex As Exception
    MsgBox(ex.Message & " - " & ex.Source)
End Try

Sachant que tout ce qui se trouve dans ma procédure est bien effectué.
Cela reste incompréhensible.

[Aspic]

Chez moi ca marche donc je ne vois pas. Sinon enlève le try et mets des points d'arrets à chaque ligne, ca plante forcément sur une ligne !

[arakdur]

En effet, en faisant comme tu m'as dit, j'ai trouvé la ligne qui plante mais je ne vois pas comment résoudre cela

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
    Public Sub MAJfichierMaladies(ByVal vChemin As String)

        Dim stwMaladies As StreamWriter, vLigne As String, y As Integer

        Try
            stwMaladies = New StreamWriter(vChemin, False, Encoding.Default)
            For y = 0 To mnuParametre.grdMaladies.RowCount - 1
                vLigne = mnuParametre.grdMaladies.Item(0, y).Value.ToString & ";" & mnuParametre.grdMaladies.Item(1, y).Value.ToString
                stwMaladies.WriteLine(vLigne)
            Next
            stwMaladies.Close()
            stwMaladies = Nothing

        Finally
            If Not IsNothing(stwMaladies) Then
                stwMaladies.Close()
            End If

        End Try

    End Sub

le message d'erreur est :
L'excpetion NullRefeferenceException n'a pas été gérée.

[smyley]

Vérifie la valeur des expressions suivantes :
mnuParametre.grdMaladies.Item(0, y)
mnuParametre.grdMaladies.Item(0, y).Value
mnuParametre.grdMaladies.Item(1, y)
mnuParametre.grdMaladies.Item(1, y).Value

Si tu en as une seule qui vaut Nothing, c'est que tu as trouvé l'erreur ...

[arakdur]

en suivant tes conseils, j'ai résolu le problème en faisant

Code :

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

1
2
3
4
5
6
            For y = 0 To mnuParametre.grdFourrages.RowCount - 1
                If (mnuParametre.grdFourrages.Item(0, y).Value IsNot Nothing) And (mnuParametre.grdFourrages.Item(1, y).Value IsNot Nothing) Then
                    vLigne = mnuParametre.grdFourrages.Item(0, y).Value.ToString & ";" & mnuParametre.grdFourrages.Item(1, y).Value.ToString
                    stwFourrages.WriteLine(vLigne)
                End If
            Next

et maintenant cela fonctionne parfaitement.
Merci à tous pour votre patience et vos réponses