Pb d'instanciation avec streamwriter

**arakdur** · 24/04/2008, 11h20

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** · 24/04/2008, 11h59

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

**arakdur** · 24/04/2008, 14h34

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.