'--- Pour lire le fichier Entete_messag.txt du dossier \courriers --------------------
Public Function LireFichierTexte(ByVal MonFichier As String) As String
On Error GoTo LireFichierTexteErreur
Dim IndexFichier As Integer
IndexFichier = FreeFile()
Open MonFichier For Binary Access Read As #IndexFichier
LireFichierTexte = Space$(LOF(IndexFichier))
Get #IndexFichier, , LireFichierTexte
Close #IndexFichier
Exit Function
LireFichierTexteErreur:
Close #IndexFichier
LireFichierTexte = ""
End Function
'--- appelle la fonction "LireFichierTexte" -------------
ContenuFichier = LireFichierTexte(UserForm1.chemin7 & "\" & "Entete_messag.Txt")
.Body = ContenuFichier