Quitter sans sauvegarder

[Amo]

Bonjour à tous !!
je voudrais utiliser ce code :'ThisWorkbook.Close' mais je voudrais aussi que ca ne me mettent pas le message 'voulez vous sauvegarder votre?' et que ca quite sans sauver le travail !!!
Merci

Amo.

 

[Dan]

Bonjour,

Utilise ce code :

Sub Tata()
Dim Msg as sring
Dim Style as sring
Dim Title as string
Dim Answer as string
Msg = 'Voulez vous sauvegarder votre ?'
Style = vbOKCancel + vbQuestion ' Définit les boutons.
Title = 'Information'
Answer = MsgBox(Msg, Style, Title)
If Answer = vbOK Then
ThisWorkbook.Close ' bouton Oui.
Else    ' Choix NON.
End If
End sub

Bonne soirée



Message édité par: Dan, à: 18/11/2005 17:55

 

[Amo]

Merci mais ca ne fonctionne pas.
Je veux qu'aucun message n'apparaisse, je veux que ca quitte sans sauvegarder quoi que ce soit.
Merci

Amo.

 

[lio]

Bonjour Dan, Amo, le forum

Essaie:

Application.DisplayAlerts=False
Application. Quit
Application.DisplayAlerts=True

Bonne soirée.

 

[Dan]

Re,

:S Désolé, j'ai lu ton message en diagonale. Bon tu auras tout de même la macro à faire avec un message.

Sinin voici la macro à placer dans Thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Instructions effectuées avant la fermeture du fichier
Application.DisplayAlerts=False
ThisWorkbook.Close SaveChanges:=False
End Sub

 

[Amo]

Merci impec !!!!
Bonne soirée !!
Amo