Dim Save As New SaveFileDialog Save.Filter = "fichier suivi client (*.txt)|*.txt| (*.*)|*.*" Save.Title = "Enregister" Save.CheckPathExists = True Save.ShowDialog(Me) Try My.Computer.FileSystem.WriteAllText(Save.FileName, TextBox5.Text, False) Catch ex As Exception End Try