BeforeSave qui fait planter Excel

Bonjour

je suis « flabbergasté », cette procédure fait planter Excel!

Auriez vous idée pourquoi?

Merci

Private Sub Workbook_Open()
    MsgBox "Bienvenue!" & vbCrLf & vbCrLf & "Veuillez fournir tous les renseignements utiles à votre demande." & vbCrLf & vbCrLf & "Certaine demande requière un formulaire supplémentaire." & vbCrLf & vbCrLf & "Pour continuer, enregistrez votre demande pour fin d'archives.", vbInformation, "ATTENTION!"
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.Dialogs(xlDialogSaveAs).Show "DDS" & Format(Date, "ddmmyyyy") & "Division-"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Faites parvenir votre demande à mhm_dds@ville.montreal.qc.ca." & vbCrLf & vbCrLf & "Au revoir!"
End Sub

Bonsoir,

Mets Cancel à True.

Cordialement.

Bonjour MFerrand

désolé, mais je comprends pas ce que vous me proposer.

J'ajoute Cancel = True dans le code de BeforeSave?

Merci de préciser

Oui !

Pas sûr que ça règle le pb...

Bonjour MFerrand

effectivement, ça empêche l'enregistrement sous et l'enregistrement tout court.

En fait je cherche un code qui oblige l'utilisateur à enregistrer sous, et cela, peu importe la façon qu'il ferme le classeur.

Bonjour

Problème résolu. Abandon du code après avoir compris qu'on ne peut combiner dans le BeforeSave le Application.Dialogs(xlDialogSaveAs).Show du au ByVal SaveAsUI As Boolean qui devient en fait un doublon!

merci à tous pour votre intérêt.