Fermeture d'Excel et sauvegarde
D
bonjour à toutes et tous,
J'ai la macro suivante qui me ferme mon fichier excel après l'avoir sauvegardé.
Sub fermeture()
ThisWorkbook.Save
ThisWorkbook.Close
Application.Quit
End Subcelle ci fonctionne bien mais le soucis c'est la ligne Application.Quit.
en effet si le fichier en cours est le seul à être ouvert alors nickel ça ferme l'appli et c’est bien.
mais si d'autres fichiers sont ouvert, tous les fichiers excels se ferment, et ça pas cool...
une idée?
v
Bonjour Darkangel,
Rajoute une petite condition qui va compter le nombre de workbook ouverts. S'il y en a qu'un seul, tu peux fermer l'appli. Sinon, tu fermes seulement le fichier :
Sub fermeture()
ThisWorkbook.Save
ThisWorkbook.Close
If Workbooks.Count = 1 Then Application.Quit
End SubC
D
Parfait merci vba-new