Option Explicit
Sub test()
Dim c As String, wb As Workbook
c = ActiveWorkbook.Path & "\NomDuclasseur.xls"
If Dir(c) <> "" Then
With Application
.ScreenUpdating = False
Set wb = GetObject(c)
'ton code
'en cas d'enregistrement du fichier masqué,
'il y a lieu de rendre visible la fenêtre du classeur
'Windows("Format.xls").Visible = True
wb.Close False 'ou True pour enregistrer
.ScreenUpdating = True
End With
End If
End Sub