Enregistrer word depuis Excel avec date du jour

Bonjour,

Le code suivant me permet bien d'enregistrer mon document word dans mon répertoire, cependant je souhaite que le nom du fichier word soit la date du jour et je n'y parviens pas. Comment dois-je gérer AppWord.ActiveDocument.SaveAs ?

Sub EnvoyerTableauxExcelVersWord()

Dim DocWord As Word.Document

Dim AppWord As Word.Application

Set AppWord = New Word.Application

AppWord.Visible = True

Set DocWord = AppWord.Documents.Add

Range("A1:E100").Copy

AppWord.selection.Paste

DocWord.Tables(1).AutoFitBehavior wdAutoFitWindow

AppWord.ActiveDocument.SaveAs "U:\DC300\nom" & ".doc"

Application.CutCopyMode = False

End Sub

(En mettant "U:\DC300\nom" & Now ".doc"" ça ne marche pas)

Merci beaucoup

Anthony

--> J'y suis parvenu

Path = "U:\DC300\"

valeur = "Mondoc_" & Format(Date, "dd-mmmm-yyyy") & "_" & Format(Time, "hh-mm") & ".doc"

AppWord.ActiveDocument.SaveAs Path & valeur