Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2021 enregistrer à la fermeture au clic sur la "X" mon classeur à son emplacement (d'où il a été ouvert)

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous

Encore un souci que je n'avais pas rencontré depuis 'fort, fort, lointain...' lol

Comme d'habitude pour tous mes fichiers, j'ai un code qui au clic sur la "X", vous savez tout là-bas en haut à droite :
- sauve mon classeur à son emplacement (d'où il a été ouvert),
- ferme mon classeur,
- ferme l'application,
Tout ça sans rien me demander

Mais voilà "ty" pas que pour ce nouveau fichier, ça fait tout bien mais il me demande :

Si je veux le remplacer et je n'arrive pas à m'en débarrasser.
Voici mon code :
Code: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    [a1].Select
    Me.Save
    Application.EnableEvents = True
    flag = True
    If Workbooks.Count = 1 Then Application.Quit Else Me.Close
End Sub
Si quelqu'un sait comment m'éviter ce message, j'en serai très content
Je joins le fichier test et je continue à chercher.
Merci à toutes et à tous
 

Pièces jointes

  • classeur renommer.xlsm
    28.6 KB · Affichages: 2
Solution
Bonjour Lionel, le forum,

Tu peux mettre dans ThisWorkbook :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> Me.Name Then wb.Close wb.Path <> "" 'sauvegarde uniquement si le fichier est enregistré
Next
Me.Save
Application.Quit 'ferme Excel
End Sub
A+
Trier par date Trier par votes

Jacky67

XLDnaute Barbatruc
Bonjour,
Sers toi de
Application.DisplayAlerts = False
Je te laisse le placer
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re-Bjr,

Après avoir bien cherché, je pense avoir trouvé d'où vient mon souci.

J'ai changé de version Excel et je suis passé à Office 2021 depuis peu de temps et c'est certainement les Options qui me posent problème (j'en ai déjà modifié certaines qui m'embêtaient).
Voici l'image de l'option que je crois concernée :

Dossier local par défaut; mais je ne sais pas comment le modifier.
Sauriez-vous ?
Un grand merci à vous
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
re..
Pffffffff !!!
La question initiale n' a rien à voir avec ceci
Le message dit ==>....Le classeur existe déjà......
Donc l'emplacement est bon
Place le code que j'ais donné avant la sauvegarde
 
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Re-Bjr
J'ai trouvé ce code :
VB: 
Dim Wb As Workbook
For Each Wb In Application.Workbooks
    Wb.Close SaveChanges:=True
Next Wb
Application.Quit
C'est bon, je n'ai plus le message, mais....
OK mais ne ferme pas l'application Excel
 
Vote positif 0 Vote négatif

Jacky67

XLDnaute Barbatruc
Ben oui
Ici tu enregistres et fermes tous les classeurs,
les classeurs fermés, ==>Application.Quit n'est plus exécuté
logique, non?
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Bonjour le fil

@Usine à gaz
Moi j'ai une question entre mes deux oreilles que je déplace ici, pendant que mon thé infuse
Comme d'habitude pour tous mes fichiers, j'ai un code qui au clic sur la "X" ...
- sauve mon classeur à son emplacement (d'où il a été ouvert),
Cliquez pour agrandir...
Pourquoi faire ?
Alors qu'Excel sait faire tout seul comme un grand.


PS: On ne peut pas surveiller un propos si il a été déplacé car il n'est déjà plus là.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour Lionel, le forum,

Tu peux mettre dans ThisWorkbook :
VB: 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim wb As Workbook
For Each wb In Workbooks
    If wb.Name <> Me.Name Then wb.Close wb.Path <> "" 'sauvegarde uniquement si le fichier est enregistré
Next
Me.Save
Application.Quit 'ferme Excel
End Sub
A+
 
Vote positif 0 Vote négatif
Solution

Usine à gaz

XLDnaute Barbatruc
Bjr Gérard , le Fil , le Forum
Encore merci à toi et c'est nickel comme d'habitude.
Ce code va me permettre de passer à ma seconde question pour laquelle je vais ouvrir un autre fil.
Je cherchais depuis longtemps : Merci, Merci, Merci


​

 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc
Bjr JM
Je suis désolé de ne pas t'avoir répondu.
Bon sang, je l'avais pourtant noté ... mais la fatigue....
Alors je te réponds (vieux motard que j'aimais lol)

"Alors qu'Excel sait faire tout seul comme un grand."
Effectivement et je l'utilise souvent (c'est bien utile en cas de plantage)
Toutefois, dans le cadre de ma demande, j'ai besoin de faire autrement.

"PS: On ne peut pas surveiller un propos si il a été déplacé car il n'est déjà plus là. "
A quel propos fais-tu référence ?, t'en souviens-tu ?
@+
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Fermer et enregistrer avec "NOM DE FICHIER" = contenu de A3
2
Réponses
17
Affichages
1 K
Usine à gaz
  • Résolu(e)
Microsoft 365 affichage bizarre à la fermeture de mon "usine à gaz"
2 3
Réponses
38
Affichages
2 K
TooFatBoy
U
  • Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
639
un internaute
U
  • Question
Microsoft 365 exécuter un code uniquement si le classeur est ouvert sur mon ordinateur
2 3
Réponses
32
Affichages
2 K
Tetonne
T
  • Question
Microsoft 365 au clic sur classeur, afficher un UserForm sans afficher l'application excel
Réponses
4
Affichages
2 K
Usine à gaz
  • Question
passer outre si le classeur n'est pas ouvert (dur a expliquer)
Réponses
7
Affichages
961
grisan29
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…