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?
Cordialement,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Paloma
Partager