Quitter sans sauvegarder

Dan

XLDnaute Barbatruc

• 18 Novembre 2005

• #2

Bonjour,

Utilise ce code :

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

 

Vote positif 0 Vote négatif

A

Amo

Guest

• 18 Novembre 2005

• #3

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.

 

Vote positif 0 Vote négatif

L

lio

XLDnaute Occasionnel

• 18 Novembre 2005

• #4

Bonjour Dan, Amo, le forum

Essaie:

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

Bonne soirée.

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 18 Novembre 2005

• #5

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

Code:

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

 

Vote positif 0 Vote négatif

A

Amo

Guest

• 18 Novembre 2005

• #6

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

 

Vote positif 0 Vote négatif