Autres Affecter doc Word à Body

FOUQUET Yves

XLDnaute Occasionnel
Bonjour,
Dans la construction d'un mailing sous VBA je voudrais affecter à .Body un texte issu d'un fichier Word.
Exemple:

texte_Word = "Bonjour les amis,
je vous souhaite une bonne journée"

Ce texte étant un fichier Word (entete_messag.docs) modifiable, dans un dossier.


.Body = texte_Word

Existe t-il une procédure pour cela ?

Merci de votre aide
 

FOUQUET Yves

XLDnaute Occasionnel
Voilà ma solution glanée sur sites:
VB:
'--- 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
 

Discussions similaires

Statistiques des forums

Discussions
313 317
Messages
2 097 119
Membres
106 844
dernier inscrit
mikael.barbeau