Fermeture de fichier et boîte de dialogue

Bonjour au forum,

Voilà...j'ai cette macro pour fermer un fichier automatiquement :
"Sub MyClose()

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
WshShell.SendKeys ("%{F4}") 'close window

End Sub"

Mais la fenêtre "Voulez vous enregistrer les dernières modifications" s'ouvre.
Comment faire pour que le programme choisisse une option par défaut ?
Peut-être y a-t-il une modification à apporter à la macro ci-dessus ?
Merci à quiconque me donnera une piste.

Emmanuel