Save and close

Bonjour,

J'ai deux codes pour saugarder et fermer excel.

Le premier ferme bien le classeur sans demander la confirmation de sauvegarde, mais ne ferme pas excel.

Sub CloseandSave()
ActiveWorkbook.Close SaveChanges:=True
End Sub

Le second code ferme bien le classeur, me demande la confirmation de sauvegarde, puis ferme bien excel.

Sub CloseandSave()

Dim Wb As Workbook

    For Each Wb In Application.Workbooks
    Wb.Saved = True
    Next Wb

    Application.Quit

End Sub

J'aimerai pouvoir combiner les deux c'est à dire. Lorsque je double clique sur mon bouton "fermer" cela sauvegarde, ferme le classeur sans me redemander la confirmation, puis sort d'excel.

D'avance merci,

Leakim

Bonjour Leakim

Voici ton code modifié

Sub CloseandSave()
  Dim Wb As Workbook
    ' Pour chaque classeur ouvert dans l'application
    For Each Wb In Application.Workbooks
      ' Fermer le classeur en l'enregistrant
      Wb.Close SaveChanges = True
    Next Wb
    ' A la fin, fermer l'application
    Application.Quit
End Sub

A+

Bonjour BrunoM45,

Je te remercie de ta réponse, mais cela ne sort pas d'excel

Cordialement,

Leakim

Re,

Je pense qu'il faut que tu mettes

' A la fin, fermer l'application
   Application.Quit

Après l'appel de ta Sub "CloseAndSave"

A+