Macro sauvegarder et quitter excel

[Antho35]

Bonjour,

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

Qui à des tuyaux

merci.

 

[Benjy]

Re : Macro sauvegarder et quitter excel

Bonjour,

une petite recherche sur le forum t'aurais permis de trouver :

ActiveWorkbook.Save
Application.Quit

 

[job75]

Re : Macro sauvegarder et quitter excel

Bonsoir,

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

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

A+

 

[Antho35]

Re : Macro sauvegarder et quitter excel

Bonjour,

Merci, j'ai besoin de plus de précision, ce code je le met dans quel macro, j'ai essyé plusieurs choses mais rien de conculants.

Merci

 

[kiki29]

Re : Macro sauvegarder et quitter excel

Salut, dans module ThisWorkbook

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ActiveWorkbook.Save
    If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close
End Sub

 

[Antho35]

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.

 

[Paritec]

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

 

[Cousinhub]

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 :

Workbooks.Count = 2

Juste pour cette précision...

 

[Antho35]

Re : Macro sauvegarder et quitter excel

Bonjour,

Voci, non je n'en fait pas exprés.

Ci joint un morceaux du fichier le code est ^place dans le this workbooks. Je veux faire excuter cette commande lors qu'on clic sur quitter.

Merci