enregistrer et fermer excel

[pascal21]

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

bonjour
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

Application.DisplayAlerts = False
 Application.Quit

pouvez-vous m'aider merci

 

[criscris11]

Re : enregistrer et fermer excel

Bonjour Pascal,
As tu essayé ceci :
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
Application.Quit
End Sub

Tiens-nous au courant.
Bon dimanche à toi le Bourguignon.

A savoir que si tu utilises cette commande, Excel va se fermer et tous tes autres fichiers Excel ouverts seront fermés par la même occasion.

 

[pascal21]

Re : enregistrer et fermer excel

A savoir que si tu utilises cette commande, Excel va se fermer et tous tes autres fichiers Excel ouverts seront fermés par la même occasion.

bonjour criscris
effectivement je n'avais pas pensé à ça
entre-temps j'avais trouvé une réponse qui fonctionne aussi
sans le "end if"mais avec une ligne qui empèche l'affichage du message de sauvegarde

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 excel;   Vous confirmez?"
style = vbYesNo + vbDefaultButton2
title = "Attention!! "
Response = MsgBox(msg, style, title)
If Response = vbYes Then
[COLOR=Red]ActiveWorkbook.Save
Application.DisplayAlerts = False
Application.Quit[/COLOR]
End If
End Sub

merci et bon dimanche