Paramétrer le bouton "annuler" de "Voulez-vous enregistrer ?"

Benoist28200

XLDnaute Nouveau
Bonjour,

Est-il possible de paramétrer le bouton "annuler" de "Voulez-vous enregistrer ?".

Cordialement,
 

Benoist28200

XLDnaute Nouveau
Bonjour @Lone-wolf ,

J'ai une macro qui m'enlève l'entourage Excel.
Quand je clic pour sortir de mon classeur, j'ai le message habituelle "Voulez-vous enregistrer ? ".
Le problème c'est qu'à l'affichage de ce message, les entêtes de ligne et de colonne réapparaissent. J'aurais voulu savoir s'il était possible de re-paramétrer ces boutons ou s'il valait mieux en faire un par moi même?

Cordialement,
 

Lone-wolf

XLDnaute Barbatruc
Bonjour à tous :)

Si j'ai bien compris, tu veux fermer le classeur sans le modifier?
Dans Workbook.BeforeClose comme l'a dit chris, il faut ajouter ceci

Application.DisplayAlerts = False
Application.Quit

Sinon moi j'ai compris autre chose à voir dans le fichier joint. Clique sur le bouton pour voir.
 

Pièces jointes

  • Classeur-exemple.xlsm
    21 KB · Affichages: 22
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re

Alors regarde le fichier que j'ai mis. Et tu adapte en conséquence. Sans voir comment est fait ton fichier difficile de pouvoir t'aider plus. Tu peux l'enregister sous un autre nom et laisser seulement la mise en forme, ensuite tu le met en pièce jointe.
 

Benoist28200

XLDnaute Nouveau
Merci @Lone-wolf

J'ai fais comme ceci:

VB:
CHOIX = MsgBox("Voulez-vous enregistrer les modifications que vous avez apportées à   " & ThisWorkbook.Name & "    ?", vbExclamation + vbYesNoCancel)

Select Case CHOIX
  
    Case vbYes
        Application.DisplayAlerts = False
        ActiveWorkbook.Save
        Application.Quit
        Application.DisplayAlerts = True
    Case vbNo
        Application.DisplayAlerts = False
        Application.Quit
        Application.DisplayAlerts = True
    Case vbCancel
  
End Select
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal