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

[Benoist28200]

Bonjour,

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

Cordialement,

 

[Lone-wolf]

Bonsoir Benoist

Qu'est-ce que tu entends par là? 🙄

 

[Benoist28200]

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,

 

[chris]

Bonjour

Il me parait plus simple de gérer le beforeClose

 

[Lone-wolf]

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.

 

[Benoist28200]

Sauf que je souhaite quand même le message d'enregistrement, je veux juste pouvoir enlever la bordure si la personne clic sur annuler.

 

[Lone-wolf]

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]

Merci @Lone-wolf

Désolé, j'avais pas vu le fichier joint. Oui c'est ce que je pensais, passer par un VBYesNo plutôt que par le message de fermeture excel.

 

[Lone-wolf]

Re

Regarde ce classeur .

 

[Benoist28200]

Merci @Lone-wolf

J'ai fais comme ceci:

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

 

[Lone-wolf]

Re

@Benoist28200

Vu que tu ferme le classeur, pas besoin de mettre "Application.DisplayAlerts = True"

 

[Benoist28200]

Re,

Ok, merci

 

[chris]

Re

Heu... à vérifier si Excel, lui, reste ouvert...

 

[Benoist28200]

Re @chris

Excel se ferme bien.