XL 2016 Fermer Fichier et Quitter excel

[KTM]

Bonjour chers amis du Forum
Je voudrais un code pour:
1-Fermer mon Fichier Actif
2- Quitter excel si aucun autre Fichier n'est ouvert

Merci

 

[sylvanu]

Bonjour KTM,
Voir dans XLD :

Code VBA pour quitter ou fermer excel

Bonjour à tous les XLDnautes Je cherche un code VBA pouvant me permettre de quitter excel (via un bouton de UserForm ) Merci d'avance de votre aide

www.excel-downloads.com

 

[Dudu2]

Hello Tous,

"Tous" est peut-être mal choisi en cette période, désolé.
Voici quelques suggestions qui me viennent de moi-même en réalité. Sauf si je les ai pompées sur Internet, mais je ne crois pas.

Option Explicit

'Fermeture avec Save
ThisWorkbook.Save
If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit


'Fermeture sans Save
If Application.Workbooks.Count > 1 Then
    ThisWorkbook.Close savechanges:=False
Else
    Application.DisplayAlerts = False
    Application.Quit
End If

'Si le classeur a été modifié, demander si enregistrer ?
If Not ThisWorkbook.Saved Then
    Réponse = MsgBox("Enregistrer les modifications ?", vbYesNoCancel + vbQuestion)
   
    'Annuler
    If Réponse = vbCancel Then Exit Sub
   
    'Enregistrer les modifications
    If Réponse = vbYes Then
        ThisWorkbook.Save
        MsgBox "Classeur enregistré !"
        If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
           
    'Ne pas enregistrer les modifications
    Else
        Réponse = MsgBox("Êtes-vous sûr de ne pas vouloir enregistrer les modifications ?", vbYesNo + vbQuestion)
        If Réponse <> vbYes Then Exit Sub
        If Application.Workbooks.Count > 1 Then
            ThisWorkbook.Close savechanges:=False
        Else
            Application.DisplayAlerts = False
            Application.Quit
        End If
    End If

'Le classeur n'a pas été modifié
Else
    If Application.Workbooks.Count > 1 Then ThisWorkbook.Close Else Application.Quit
End If

Confinement Vôtre,
Dudu

 

[job75]

Bonjour KTM, sylvanu, Dudu2,

Sub Fermer()
ThisWorkbook.Save 'enregistrement facultatif
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

A+