Ca m'étonnerait, je viens de tester, même sous XL2007 ça marche.est ce valable pour ta version d'office??
Bonjour à tous. Vous avez raison. Ca fonctionne après redémarrage de l'ordi.Bonjour,
Ca m'étonnerait, je viens de tester, même sous XL2007 ça marche.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.Dialogs(xlDialogSaveAs).Show 'Format([A1], "yyyy-mm-dd") & [A2]
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
Application.Dialogs(xlDialogSaveAs).Show 'Format([A1], "yyyy-mm-dd") & [A2]
Application.EnableEvents = True
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
Application.EnableEvents = False
MsgBox "Macro Workbook_BeforeSave"
Application.Dialogs(xlDialogSaveAs).Show 'Format([A1], "yyyy-mm-dd") & [A2]
Application.EnableEvents = True
End Sub
Non, il est bien enregistré.Je pense que tu as deux fois la boite de dialogue lorsque le fichier est enregistré pour la première fois.
si tu réouvres le meme fichier (déjà enregistré donc), et que tu refermes, tu n'aura plus qu'une seule fois la boite..