[VBA Excel] Comment forcer Excel à se fermer sans question !

Version imprimable

Re bonjour,

Bon je suis désolé de poser tant de questions mais je suis bientôt au chômage et j'ai envie de m'améliorer alors je développe à la demande de mon employeur, et je l'accepte car j'y trouve aussi du plaisir, des outils pour CATIA en VBA, des outils sous Excel et maintenant j'essaye de développer un outil CATIA avec Visual Basic 2005 Express.

Bref ma question consiste bien VBA EXCEL :

Voilà j'ai fait ce code mais je n'arrive pas à faire quitter Excel sans qu'il me demande de sauvegarder mon fichier. Comment puis-je procéder?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub Exit_QuandClic() Dim sélect As Integer sélect = MsgBox("CAUTION ! - Close the Excel file without save your modification.", vbOKCancel _ , "Save your Excel file with the menu") If sélect = vbOK Then 'ferme le fichier Excel sans sauvegarder le document. 'ActiveWorkbook.Close savechanges:=False savechanges = False Application.Quit 'savechanges:=False End If 'MsgBox "Vous pouvez fermer votre fichier Excel", vbCritical, "Caution" End Sub
Cordialement,
Paloma

07/12/2006, 11h01
cwain

tu as essayé en mettant ça à la fin ?

Code:

Application.DisplayAlerts = false

Merci cwain c'est impéccable pour mon cas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Exit_QuandClic()
Dim sélect As Integer
 
sélect = MsgBox("CAUTION ! - Close the Excel file without save your modification.", vbOKCancel _
                    , "Save your Excel file with the menu")
 
If sélect = vbOK Then
    'ferme le fichier Excel sans sauvegarder le document.
        'ActiveWorkbook.Close savechanges:=False
 
        Application.Quit
        Application.DisplayAlerts = False
    End If
    'MsgBox "Vous pouvez fermer votre fichier Excel", vbCritical, "Caution"
 
End Sub

Bonne journée à tous.

07/12/2006, 13h38
ouskel'n'or

Je me demande... cette ligne,

Citation:

Application.DisplayAlerts = False

... si tu veux qu'elle ait un rôle, est à mettre avant l'enregistrement et la fermeture d'Excel. Là, elle ne joue aucun rôle.
Si tu n'as pas de message, c'est simplement parce que tu imposes un non enregistrement de fichier par ta ligne

Citation:

ActiveWorkbook.Close savechanges:=False

que tu as mise en remarque.
Modifie ton fichier et refais l'expérience. Si tu ne fais aucune modif, l'expérience ne changera rien, tu n'auras pas de message. En l'état, si tu modifies ton fichier avant de quitter, tu retrouveras le message. Écépas'ketuve ;)