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 ...