Répondre automatiquement "OUI" à l'enregistrement dans un script

Bonjour à toutes et à tous,

Je viens vers vous pour un peu d'aide concernant un script que j'utilise dans OUTLOOK 2007. Ce script me permet d'extraire et d'imprimer automatiquement des pièces jointes (Fichier Excel) dès réception.
Ce script fonctionne mais après l'impression, Excel m'indique "Voulez-vous enregistrer les modifications apportées à "XX.xlsx" ?
Je souhaiterais en fin que le script réponde systématiquement "OUI".
J'ai tenter avec Display.alerts mais j'ai chaque fois une erreur 438....
N'étant pas familier avec VBA,je ne trouve pas de solution.
Auriez vous une piste ??

Le code du script est :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Sub ShellImprime(fichier As String)
        ShellExecute 0, "print", fichier, "", "C:\Users\PN\Documents\PREPAIES\FJA Attente\", 0
End Sub
 
Sub script(MyMail As MailItem)
Set fichier = MyMail.Attachments
Repertoire = "C:\Users\PN\Documents\PREPAIES\FJA Attente\"
fichier(1).SaveAsFile Repertoire & fichier(1).FileName
ShellImprime (fichier(1).FileName)
End Sub

Merci par avance,

Pierre

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.
.