Skadi
XLDnaute Nouveau
Salut chers membres,
Svp j'ai besoin de vos, j'ai écrit une macro (qui fonctionne bien) qui me permet de remplir un model Word à partir d'un classeur . Mon soucis est que je veux envoyer par mail MON WORD après le remplissage et veux que le corps du mail soit mon Word est non une pièce jointe .
Voici mon code , Si quelqu'un peut m'orienter, merci
Svp j'ai besoin de vos, j'ai écrit une macro (qui fonctionne bien) qui me permet de remplir un model Word à partir d'un classeur . Mon soucis est que je veux envoyer par mail MON WORD après le remplissage et veux que le corps du mail soit mon Word est non une pièce jointe .
Voici mon code , Si quelqu'un peut m'orienter, merci
VB:
Public Sub SendMonEmail()
Dim User As String
Dim Mail As String
Dim Fonct As String
Dim Chemin As String
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document
On Error Resume Next
Chemin = "C:\Users\Saugvegarde\Document1.docm"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.Documents.Open(Chemin)
l = ActiveCell.Row
C = ActiveCell.Column
Worksheets("Feuil1").Activate
prenom = Range("D" & l).Value
User = InputBox("Saisir le Usermane ?", "Titre")
Mail = InputBox("Saisir le mail ?", "Titre")
Fonct = InputBox("Saisir la Fonction ?", "Titre")
With LeDocWord
'pour remplir les signets dans mon word
.Bookmarks("Prenom").Range.Text = prenom
.Bookmarks("Username").Range.Text = User
.Bookmarks("Email").Range.Text = Mail
.Bookmarks("Fonction").Range.Text = Fonct
.ActiveDocument.SaveAs2 "C:\Users\Saugvegarde\Document1.docm" & Format(Date, "dd-mm-yyyy") & ".doc"
.ActiveDocument.Close
.Quit
'.SendMail
End With
Set ObjWord = Nothing
End Sub