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.
 

Fichiers joints

Dernière édition:

Benoist28200

XLDnaute Nouveau
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

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


Haut Bas