Fermeture du classeur

Bonjour,

J'ai lu de nombreux articles sur ce sujet, mais je ne trouve pas de solution !

Voila, je ferme ainsi le classeur :

    Workbooks(ThisWorkbook.Name).Close False
    Application.Quit

Si j'ai au moins un classeur déjà ouvert, pas de problème

Mais si c'est ce seul classeur qui est ouvert, il reste Excel ouvert, un espèce de classeur que je ne peut fermer. Je suis obligé de tuer le processus

Comment faire ?

Merci

J'ai trouvée cette solution, un peu brutal certes ...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wWkBk As Workbook: Dim wCptOuv As Byte: Dim wClasList As String
    wCptOuv = 0
    Call RemettreComplet
    wClasList = ThisWorkbook.Name
    For Each wWkBk In Workbooks
        If wWkBk.Name = wClasList Then GoTo Suite
        wCptOuv = wCptOuv + 1
Suite:
    Next wWkBk
    Workbooks(ThisWorkbook.Name).Close
    Application.DisplayAlerts = True
'''    Application.ActiveWindow.Close
    Workbooks(ThisWorkbook.Name).Close False
   If wCptOuv > 0 Then
        Application.Quit
    Else
        Shell ("taskkill /F /IM Excel.exe"), vbHide
    End If
End Sub

Il reste néanmoins un problème

Chaque fois que j'ouvre ensuite un classeur, ce classeur ainsi fermé ressort dans le panneau de gauche,:

Récupération de document ...

Le nom de ce classeur(Original)

Comment éviter cela ?

Merci

Slt,

essaie ce code

If Application.Workbooks.Count = 1 Then
ActiveWorkbook.Saved = True  ' ou bien False
Application.Quit
Else
ActiveWorkbook.Close SaveChanges:=True
End If

Bravo, c'est parfait !

Merci bien