Gérer la sauvegarde d'un fichier

[Hady]

Bonjour forum!

Mon problème est relativement récurrent je pense.
J'ai utilisé la macro évenementielle suivante :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False

ActiveWorkbook.Save
Application.DisplayAlerts = False

[...]

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

En faisant les choses de la sorte je voulais me prémunir du fait que le fenêtre 'Voulez-vous enregistrer les modifications...'de Excel s'affiche juste avant la fermeture du classeur! Mais elle s'affiche quand même! Que faire?

 

[Robert]

Bonjour Hady, bonjour le forum,

Normalement tu n'as besoin que de ça :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

Ce code indique qu'avant la fermeture il sauve le fichier (donc les dernières modification faites), puis il ferme (sans jamais te demander si tu veux enregistrer les dernières modification puisque'il vient de le faire)...

 

[Hady]

Ton code m'a mis la puce à l'oreille!! Il fallait que je fasse:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Application.DisplayAlerts = False

[...]

Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveWorkbook.Save
End Sub