Aide vba sous access

Bonjour,

Voici mon code :

Private Sub Editer_Click()
Dim oWdApp As Word.Application
Dim oWdDoc As Word.Document
Dim Machin As String

Machin = InputBox("Veuillez entrer le nom du fichier")

While Machin = ""
MsgBox ("Erreur de saisie, veuillez recommencer")
Machin = InputBox("Veuillez entrer le nom du fichier")
Wend
Set oWdApp = CreateObject("Word.Application")

'Si nécessaire...
oWdApp.Visible = True

'Créer nouveau document
Set oWdDoc = oWdApp.Documents.Add

'Ajouter deux lignes de texte
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].NOM)
oWdApp.Selection.TypeText ([Form_Formulaire Cartons Jaunes].PRENOM)

With oWdDoc
'Sauver le document
.SaveAs ("E:\Stage Bailly-Comte\essai.doc")
'Fermer le document
.Close
End With

oWdApp.Quit
Set oWdApp = Nothing
End Sub

Et ma question c'est de savoir comment donner un nom de fichier spécifique au lieu de donner toujours le nom essai.doc, j'aimerais que le nom du fichier soit celui que j'entre dans l'inputbox suivante :
Machin = InputBox("Veuillez entrer le nom du fichier").

Merci d'avance pour votre aide

Configuration: Windows XP Internet Explorer 6.0