Temps d'exécution des erreurs lors de l'annulation d'un dialogue 'Save As', Affiché à travers VBA

On Error Resume Next 'to omit error when cancel is pressed

 ActiveDocument.Save



If Err.Number <> 0 Then 'optional, to confirmed that is not saved

 MsgBox "Not saved" 

End If

On Error GoTo 0 'to return standard error operation

SaveAs

Cancel

Dim bSave As Boolean

If ActiveDocument.Path = vbNullString Then

bSave = Application.Dialogs/wdDialogFileSaveAs/.Show

If Not bSave Then MsgBox "User cancelled", vbCritical

Else

ActiveDocument.Save

End If

if /Globals.ThisAddIn.Application.ActiveDocument.Path == String.Empty/

 {

 Word.Dialog dlg;

 Object timeout = 3000;

 dlg = Globals.ThisAddIn.Application.Dialogs[

 Word.WdWordDialog.wdDialogFileSaveAs];

 int result = dlg.Display/ref timeout/;

 }

 else

 {

 Globals.ThisAddIn.Application.ActiveDocument.Save//;

 }