Fermer sans message des modifications

P

Philippe

XLDnaute Occasionnel

• 20 Juillet 2007

• #2

Re : Fermer sans message des modifications

Bonjour;

Application.displayalerts=false

A+
Philippe

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Juillet 2007

• #3

Re : Fermer sans message des modifications

Bonsoir lolo

essaye peut être comme ceci :

Code:

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
@+

 

Vote positif 0 Vote négatif

la croisée des pains

XLDnaute Occasionnel

• 20 Juillet 2007

• #4

Re : Fermer sans message des modifications

bonjour Pierrot,Philippe

merci a vous deux, cela marche cool

lolo

 

Vote positif 0 Vote négatif

G

gbinforme

XLDnaute Impliqué

• 20 Juillet 2007

• #5

Re : Fermer sans message des modifications

Bonsoir,

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

Code:

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 !

 

Dernière édition: 20 Juillet 2007

Vote positif 0 Vote négatif