Private Sub Workbook_Open()
If MsgBox("Si vous créez un nouveau dossier, enregistrez le dans son nouvel emplacement pour conserver le dossier maquette." & vbLf & vbLf & "Voulez-vous enregistrer ce fichier dans un autre dossier?", vbYesNo, "Demande d'enregistrement") = vbYes Then
Application.Dialogs(xlDialogSaveAs).Show
End Sub