Bonjour,

J'ai un petit problème sur la réalisation d'une commande d'enregistrement.
Voici mon code :

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
 
Private Sub XMLToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles EnregistrerToolStripMenuItem.Click
        Dim ds As DataSet = dgvMainHiver.DataSource
        Try
            With SaveTab2()
                .Title = "Enregistrer"
                .InitialDirectory = "\\"
                .Filter = "Fichier XML (.xml)|*.xml|Tous les fichiers|*.*"
                .DefaultExt = "xml"
                .AddExtension = True
            End With
 
            If SaveTab2.ShowDialog = Windows.Forms.DialogResult.OK Then
                If SaveTab2.FileName.ToString <> "" Then
                    ds.WriteXml(SaveTab2.FileName, XmlWriteMode.IgnoreSchema)
                End If
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
Le problème vient lorsque j'ai choisit l'emplacement de mon fichier ainsi que son nom. Lorsque je vais cliquer sur enregistrer une MessageBox me dit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
La référence d'objet n'est pas définie à une instance d'objet
Je pense que l'erreur doit se situer dans cette zone là mais je n'arrive pas à l'identifier :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
If SaveTab2.FileName.ToString <> "" Then
               ds.WriteXml(SaveTab2.FileName, XmlWriteMode.IgnoreSchema)
End If