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

[Usine à gaz]

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 :

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
🙂

 

[Jacky67]

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 :
Regarde la pièce jointe 1171480
Si je veux le remplacer et je n'arrive pas à m'en débarrasser.
Voici mon 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
🙂

Bonjour,
Sers toi de
Application.DisplayAlerts = False
Je te laisse le placer 😇

 

[Usine à gaz]

Bjr et merci Jacky67 🙂
Je vais voir
🙂

 

[Usine à gaz]

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
🙂

 

[Jacky67]

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 :
Regarde la pièce jointe 1171493
Dossier local par défaut; mais je ne sais pas comment le modifier.
Sauriez-vous ?
Un grand merci à vous
🙂

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

 

[Usine à gaz]

Re Jacky67 🙂
le Application.DisplayAlerts = False semble ne pas avoir d'effet
🙂

 

[Usine à gaz]

Curieux, c'est quand même bizarre, je n'ai pas ce souci avec tous mes autres fichiers 🙃

 

[Usine à gaz]

Re-Bjr 🙂
J'ai trouvé ce code :

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
🙂

 

[Jacky67]

Re-Bjr 🙂
J'ai trouvé ce code :

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
🙂

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

 

[Usine à gaz]

Je n'ai toujours qu'un fichier ouvert 🙂

 

[Usine à gaz]

J'ai également tenté : If Workbooks.Count = 1 Then Application.Quit Else Me.Close
Masi ça ne ferme toujours pas l'application

 

[Staple1600]

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),

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à. 😉

 

[job75]

Bonjour Lionel, le forum,

Tu peux mettre dans ThisWorkbook :

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+

 

[Usine à gaz]

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
🙂

​

 

[Usine à gaz]

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 ?
@+
🙂