pascal21
XLDnaute Barbatruc
Code:
Sub Image21_QuandClic()
'enregistrer et quitter
Dim style As Integer
Dim msg As String, title As String, Response As String
msg = " Vous allez enregistrer et quitter ce tableau; Vous confirmez?"
style = vbYesNo + vbDefaultButton2
title = "Attention!! "
Response = MsgBox(msg, style, title)
If Response = vbYes Then
ActiveWorkbook.Close savechanges:=True
End If
End Sub
j'ai, à nouveau un code que j'aimerais un peu modifier
celui ci ferme enregistre les changements et ferme le classeur
en fait j'aimerais que ça enregistre et ferme excel
j'ai trouvé ceci mais je ne sais pas comment l'utiliser dans le code
Code:
Application.DisplayAlerts = False
Application.Quit