Public Shared Function OuvrirFichierTexte(ByVal Chemin As String) As String
Try
' Vous pouvez changer/retirer l'encodage
Dim FichierStreamRead As New System.IO.StreamReader(Chemin, System.Text.Encoding.GetEncoding("iso-8859-1"))
Dim ContenuFichier As String = FichierStreamRead.ReadToEnd()
FichierStreamRead.Close()
FichierStreamRead = Nothing
Return ContenuFichier
Catch ex As Exception
Return ""
End Try
End Function