Choix Options Bouton USF ? et Quitter Excel

Bonjour,

J'ai créer un USF où utilisateur doit accepter par OUI ou NON

Si il fait OUI alors une cellule dans une feuille cacher et protéger doit être modifier et si c’est NON alors le fichier se ferme et on quitte excel.

Mais mon code ne marche pas comme il faut pou NON :

*Quand On cliquer sur NON, mon fichier se ferme et après application Excel ne se ferme pas;Si je me seulement sur Thisworkbook.close Excel demande si on veut sauvegarde ou non et sion clique sur annuler on arrive sur le fichier. C'est donc pour cela que je le ferme avant de quitter application mais cela ne marche pas.

 Private Sub CBValider_Click()

    If OptionButton_non = True Then
       dd = MsgBox("L'acceptation des conditions est indispensable pour utiliser cette application.", 48, "Erreur")
       zz = MsgBox("L'application va ce fermé à bientôt.", 48, "Erreur")

       Application.DisplayAlerts = False
      If Application.Workbooks.Count = 1 Then ThisWorkbook.Close
Application.Quit
      If Application.Workbooks.Count > 1 Then ThisWorkbook.Close
      Application.DisplayAlerts = True
    End If
LicenceUtilisations.Hide
    End Sub

Merci pour l'aide

Bonjour

Quand On cliquer sur NON, mon fichier se ferme et après application Excel ne se ferme pas;...

Comment tu veux fermer excel avec un code qui se trouve dans ton fichier alors que tu viens de fermer le fichier en question

Autre souci, la dernière instruction ....hide ne sert pas non plus puisque le fichier est fermé.

Crdlt

Dan a écrit :

Comment tu veux fermer excel avec un code qui se trouve dans ton fichier alors que tu viens de fermer le fichier en question

Exacte donc je vais devoir fermer application sans fermer le fichier et donc je vais essayer de trouve moyen que Excel ne demande pas si on veux enregistre Fichier.

Autre souci, la dernière instruction ....hide ne sert pas non plus puisque le fichier est fermé.

Exacte

Merci pour l'info

J'ai trouvé et donc pour ceux qui cherchent la même chose que moi, voici la solution,

mettre dans Thiwworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ThisWorkbook.Saved = True 'Informe Excel que le fichier a déjà été enregistré (cela évite d'avoir une demande d'enregistrement à la fermeture)
End Sub

et dans votre macro :

  Application.DisplayAlerts = False
      If Application.Workbooks.Count = 1 Then Application.Quit

      If Application.Workbooks.Count > 1 Then ThisWorkbook.Close
      Application.DisplayAlerts = True
    End If

En clair dans Thiswoorkbook on vas dire à Excel que fichier n'a pas besoin d'être enregistre et donc il peux ferme le fichier sans problème et donc il quitte aussi application excel.

Merci Dan pour la piste