Quitter sans sauvegarder

[haim]

salut à tous

Sauriez-vous ce qu'il faut saisir pour que lorsque je clique sur le bouton quitter de mon formulaire, le fichier excel se ferme sans sauvegarder et sans proposer une sauvegarde ? car celui-ci est en réseau et quand il est ouvert sur deux postes, la sauvegarde le fait bugger...

 

[Willy]

Bonjour Haim,
Pour une fois que je peut aider quelqu'un, j'en profite :
La macro suivante ouvre un msgBox permettant de :
OUI : Quitter avec sauvegarde
NON : Quitter sans sauvegarde

Modifie le selon tes besoins
A+ Willy

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response, MyString
Dim Bsm

Msg = "Voulez vous sauvegarder avant de quitter ?" ' Définit le message.
Style = vbYesNo + vbQuestion + vbDefaultButton1 ' Définit les boutons.
Title = "QUITTER L'APPLICATION" ' Définit le titre.

' Affiche le message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' L'utilisateur a choisi Oui.
For Each Bsm In Application.Workbooks
Bsm.Save
Next Bsm
Application.Quit
ThisWorkbook.Close False

Else
Application.Quit
ThisWorkbook.Close False
End If
End Sub

 

[William]

Bonjour Haim, Bonjour Willy


Vous trouverez ci-dessous un lien vers le musée du Forum...

En fait, il s'agit d'une vaste entreprise de regroupement de ce qui s'est dit sur les Useforms...

Un vrai bonheur !! (pour les intéressés).


http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=14560&t=14478


A bientôt,

William

 

[Cathy]

ou plus simplement :

ThisWorkbook.Saved = True
ThisWorkbook.Close

Cathy

 

[haim]

Extra, ça marche... merci bcp