Sub enreg()
Dim num As Byte, vDate, Nom$, Chemin$
Chemin = InputBox("Saisir le chemin du répertoire de sauvegarde" & Chr(13) & "( par défaut :C:\Temp\ )", "Choix du répertoire", "C:\Temp\")
Nom = "Groupe_Turbine_Alternateur "
num = InputBox("Saisir un nombre, svp.")
vDate = Format(InputBox("Saisir une date", "Date", Date), "dd-mm-yyyy")
ActiveDocument.SaveAs Chemin & Nom & "# " & num & " Inspection " & vDate & ".doc"
Application.DisplayAlerts = wdAlertsNone
ActiveDocument.Close True
End Sub