enregistrement oui / non UNIQUEMENT

  • Initiateur de la discussion Initiateur de la discussion YANN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Y

YANN

Guest
Bonjour à tous
aprés plusieurs recherches dans les archives du forum je n'arrive pas à trouver ma réponse.
Voici mon problème :
est il possible, pour un fichier spécifique, que la boite de dialogue qui s'ouvre automatiquement à la fermeture d'un fichier excel ne propose que 2 solutions : Oui ou NON

Noramelement le texte est :
Voulez vous enregistrer les modifications apportées à 'xxxxx. XLS'?
Oui Non Annuler

je voudrai uniquement :
Voulez vous enregistrer les modifications apportées à'xxxx.XLS'?
Oui Non

et ce que popur mon fichier. il doit y avoir un code à mettre dans ThisWorkBook (ouverture et fermeture ) mais lequel ??


Merci d'avance pour vos réponses











(ne propose pas annuler)
 
Bonsoir,

Avec le code ci-dessous ça marche


Private Sub cmdAnnuler_Click()
Dim rep As Byte
rep = MsgBox("Etes-vous sûr de vouloir fermer l'application en cours ?", _
vbYesNo + vbQuestion, "Annuler l'application en cours ?")
If rep = vbNo Then
Exit Sub
End If
Me.Hide
End
End Sub

@ + denos
 
Bonsoir,

Tu dois pouvoir essayer :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Si le classeur a été modifié
If Me.Saved = False Then
'Doit-on le sauvegarder ?
If MsgBox("Voulez-vous enregistrer les modifications apportées à " & ThisWorkbook.Name & " ?", vbYesNo) = vbYes Then
Me.Save
Else
Me.Saved = True
End If
End If
End Sub

Cela permet d'occulter le passage à l'évenement Workbook_BeforeSave lors de la fermeture du classeur.

Cordialement.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
14
Affichages
2 K
Réponses
4
Affichages
4 K
Retour