Fermeture du USF et classeur en cas de classeur est caché

Bonjour à tous,

Je veux éditer ce code pour fermer le usf quand deux classeurs ou plus sont ouverts

Parce que si un autre classeur est ouvert et je ferme le usf à partir du bouton fermer, il le cachera et ne le fermera pas.

Dans ce cas, je souhaite fermer le usf et son classeur et laisser les autres classeurs ouverts.

Merci

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Dim Rep%
If Application.Workbooks.Count = 1 Then
  If Application.Visible = False Then
    Rep% = MsgBox(prompt:="La fermeture du UserForm implique que l'application Excel soit fermée." & vbLf & _
    "Voulez-vous réellement fermer l'application Excel ?", Buttons:=vbOKCancel)
    If Rep% = vbOK Then
      If Not AppClass Is Nothing Then Set AppClass = Nothing
      ThisWorkbook.Save
      Application.Quit
    Else
      Cancel = True
    End If
  End If
Else
  UserFormVisible = False
End If
End Sub

Bonjour,

Si tu veux fermer le classeur, utilises la méthode "Close" :

ThisWorkbook.Save
ThisWorkbook.Close

Bonjour

merci pour votre attention

Le problème existe toujours

aussi une autre erreur apparaît lorsque vous fermez le fichier et l'ouvrez à nouveau.