Suppression de la demande de sauvegarde de fichier

[G'Claire]

Salut le forum

Voila, j'ai créer un bouton de fermeture avec possibilité de fermeture avec ou sans sauvegarde :

Private Sub CommandButton10_Click()

If MsgBox("Voulez-vous enregistre les modifications ?", vbYesNo, "CONFIRMATION") = vbYes Then
ActiveWorkbook.Save 'Fermeture Avec sauvegarde
Application.Quit
Else

'Alerte de fermeture sans sauvegarde

If MsgBox("Vous allez fermer votre fichier sans enregistrer les modifications ?", vbYesNo, "Alerte") = vbYes Then
Application.Quit 'Fermeture Sans sauvegarde
Else
Sheets("Tool_Menu").Activate
End If
End If
End Sub

Comment dois-je m'y prendre dans le cas de modif dans ce fichier si je ne veux pas qu'Exel me demande de sauvegarder ou non les modifications

Merci, encore, G'Claire

 

[@Christophe@]

Bonjour G'Glaire

Ben tous simplement:

ThisWorkbook.Close savechanges:=False

ou ThisWorkbook.close 0

pour sauver tu fais le contraire, = True ou 1

Bonne chance

@Christophe@

 

[G'Claire]

@Christophe@, le forum

Merci de ta réponse, e pour fermer le classeur entier il faut remplacer
ThisWorkbook par Application

Merci, G'Claire

 

[@Christophe@]

Re

Si tu veux completement quitter excel sans sauver et sans voir la question utilise cela:

private bub commandbutton1_click()
application.displayAlerts = false
application.quit
application.displayAlerts = true
end sub

Bonne soirée

@Christophe@

 

[G'Claire]

@Christophe@, le forum

Merci pour cette réponse cela fonctionne

Salut, G'Claire

 

[G'Claire]

re, re, re @Chrsistophe@ et le forum

En faite il ne faut pas remettre :

application.displayAlerts = true

car cela réaffiche la demande de sauvegarde

Du-moins d'aprés ce que je viens de tester

Merci,G'Claire

 

[@Christophe@]

Re

Ah bon, ben oui, c'est le but de application.displayalerts, mais si tu le supprime il y a tous de même un petit problème

Normalement, tu mets avant pour éviter le message et après pour faire tous remmetre dans sont état normal

Moi ce que je te conseille, c'est de réactivé le displayalerts = true dans l'evenement before close

exemple (le code à mettre dans ThisWorkbook)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = True
End Sub

Parce que si tu désactive et ne réactive pas, tu auras as la prochaine réouverture d'excel les alerts désactivé aussi, dons faut remmetre!!

Bonne soirée

@Christophe@

 

[G'Claire]

re * par 10 @Christophe@ et le forum

Je m'en vais le mettre

Merci, Salut