VBA Word : envoi PJ intitulée "PJ Nom signataire.pdf"

Bonjour,

Je suis à la recherche d'une solution pour envoyer un mail avec la PJ en PDF avec une variable qui modifie le nom du fichier en fonction de l'expéditeur

J'ai déjà adapté la macro suivante mais le nom du fichier reste identique à chaque envoi.

Je précise que dans mon fichier word d'origine j'ai une case de texte enrichie qui s'appelle NomSig (nom du signataire)

Question bonus ajouter également dans le nom du fichier un horodatage..

Un grand merci !

Private Sub send1_click()

Dim OutApp As Object
Dim OutMail As Object
Dim fichier As String
Dim NomSig As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

fichier = "C:\Users\Public\Downloads\NOM FICHIER" & NomSig & ".pdf"
ActiveDocument.ExportAsFixedFormat OutputFileName:=fichier, ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, BitmapMissingFonts:=True, UseISO19005_1:=True

With OutMail
.To = "xx@yy.fr"
.CC = ""
.BCC = ""
.Subject = "SUJET" & NomSig
.Body = "Bonjour," & Chr(13) & Chr(13) & _
"TEXTE "
.Attachments.Add fichier
.Display
' .Send
End With

On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

End Sub

PS : je n'y connais rien en VBA

Merci d'avance pour vos suggestions et bon week-end

RESOLU !!

J'ai trouvé la réponse...

En fait c'était mon champ NomSig qui n'était pas du bon format --> controle axtiveX !