Boite de dialogue ENREGISTRER

Bonjour

J'ai fait une petite application de bataille navale pour mes petits enfants…

Seul soucis je ne veux pas de la boite de dialogue ENREGISTRER…

malgré un

[CODE]application.thisworkbook.saved=true[/CODE]

Quand je clic sur quitter j'ai cette boite (sauf avec F8)

A+ François

Salut,

voir ce code (je n'ai pas testé) ;

https://www.mrexcel.com/board/threads/vba-close-workbook-without-saving-message-box.769350/#post-377...

customerworkbook.Activate
    customerworkbook.Saved = True ' marks as saved but doesn't save
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    customerworkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True

    targetSheet.Activate

Bonjour

et merci

J'ai un message d'erreur

customerworkbook variable non défini

A+ François

Ceci fonctionne ;

Sub quitter()
    ThisWorkbook.Activate
    ThisWorkbook.Saved = True
    Application.CutCopyMode = False
    Application.DisplayAlerts = False
    ThisWorkbook.Close SaveChanges:=False
    Application.DisplayAlerts = True
End Sub

Bonjour et merci

Tout fonctionne …

A+ François