Refus de sauvegarde

[tartare2009]

Bonjour à tous,

à la fin d'une macro, j'ai un bout de code qui demande la sauvegarde du fichier sur le serveur de ma boite:

ChDir "\\Server\qualité\Temp"
ActiveWorkbook.SaveAs Filename:= _
"\\Server\qualité\Temp\Report OP " & Format(Date, "dd-mm-yy") & ".xlsm", FileFormat _
:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Jusque là aucun problème, mais si la personne ne désire pas sauvegarder ce fichier, une fenetre avec un message d'erreur s'ouvre.

method "save as" of object '_workbook' not successful

Quel est le code qui me permettrait d'éviter ce message.

Merci

 

[Pierrot93]

Re : Refus de sauvegarde

Bonjour,

vois pas dans ton code que la personne ait le choix de sauvegarder ou pas... Essaye peut être ceci :

Application.DisplayAlerts = False
'ton code d'enregistrement
Application.DisplayAlerts = True

bonne fin d'après midi
@+

 

[tartare2009]

Re : Refus de sauvegarde

c'est parfait comme cela. Merci à toi!!