Bonjour à tous,
J'ai une feuille avec un bouton qui execute le code ci-dessous :
J'ai un module nommé Procedures qui contient :
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
et j'obtiens une exception avec le message :
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
"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 ...
Partager