Fermer sans message des modifications

[la croisée des pains]

Bonjour à tous,

comment supprimer la boite de dialogue du message à la fermeture du fichier . Ce messge me dit voulez-vous enregistrer les modifications.
Bien sur que oui mais je ne veux pas de la boite de dialogue.

mon code dans le le workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Contacts").Range("O2").Value = " Dernière mise à jour le " & Format(Date, "dd/mm/yyyy")
End Sub


merci de votre aide

lolo

 

[Philippe]

Re : Fermer sans message des modifications

Bonjour;

Application.displayalerts=false

A+
Philippe

 

[Pierrot93]

Re : Fermer sans message des modifications

Bonsoir lolo

essaye peut être comme ceci :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Feuil1").Range("O2").Value = " Dernière mise à jour le " & Format(Date, "dd/mm/yyyy")
Application.DisplayAlerts = False
ThisWorkbook.Close True
Application.DisplayAlerts = True
End Sub

bonne soirée
@+

 

[la croisée des pains]

Re : Fermer sans message des modifications

bonjour Pierrot,Philippe

merci a vous deux, cela marche cool

lolo

 

[gbinforme]

Re : Fermer sans message des modifications

Bonsoir,

Essaie comme ceci, tu ne devrais plus avoir la boite de dialogue

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Contacts").Range("O2").Value = " Dernière mise à jour le  " & Format(Date, "dd/mm/yyyy")

ActiveWorkbook.Save
End Sub

Désolé j'arrive après la fermeture et je vais devoir manger sans pain : pas cool !