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

Macro sauvegarder et quitter excel

  • Initiateur de la discussion Initiateur de la discussion Antho35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Antho35

XLDnaute Occasionnel
Bonjour,

Je veux créer une macro qui enregistre automatiquemtn mon fichier, qui le ferme et quitte excel.

Qui à des tuyaux

merci.
 
Re : Macro sauvegarder et quitter excel

Bonsoir,

Si d'autres fichiers sont ouverts, il vaut mieux :

Code:
ActiveWorkbook.Save
If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close

A+
 
Re : Macro sauvegarder et quitter excel

Salut, dans module ThisWorkbook
Code:
Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub
 
Re : Macro sauvegarder et quitter excel

Re Bonjour,

Mon soucci maintenant c'est que qu'on le code est dans mon thisworkbook, il l'excute automatiquement à l'ouerture du fihcier.

Je voudrais placer ce code dans un bouton, mais il doit me manquer quelque chose.

J'ai déjà un thisworkbook, qui ouvre automatiqument à louverture du fihcier l'onglet principal.
 
Re : Macro sauvegarder et quitter excel

Bonjour Kiki 🙂 Anthon 35,
je lis tes réponses Anthon et je pense que tu le fais exprès, ou alors tu ne fais pas ce que Kiki t'a envoyé !!!!
Alors une fois de plus si vous ne savez pas faire ayez au moins la sagesse de joindre un fichier, on mettra la macro au bon endroit.
Tu m'expliqueras comment une procèdure BeforeClose peut s'effectuer au démarrage !!!
a+
papou 🙂
 
Re : Macro sauvegarder et quitter excel

Bonjour,

je voudrais juste apporter une petite précision sur le code proposé.

Si vous possédez une macro dans le perso.xls, votre nombre de classeur augmentera de 1

1 seul classeur ouvert, plus macro perso :

Code:
Workbooks.Count = 2

Juste pour cette précision...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Réponses
32
Affichages
748
Réponses
4
Affichages
166
  • Résolu(e)
Microsoft 365 problème
Réponses
19
Affichages
910
Réponses
9
Affichages
328
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…