macro pr quitter l'application

[Magalie]

bonjour,

nous voudrions savoir ce qu'il faut écrire dans visual basic pr créer une macro qui ferme l'application et qui sauvegarde toutes les feuilles du classeur.

merci d'avance.

 

[Dan]

Bonjour,

Voici une macro qui fait ce que tu demandes :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Workbooks('nom du classeur.xls').Close SaveChanges:=True
Application.Quit
End Sub

Une réserve toutefois avec l'instruction 'application.quit' qui va en fait fermer Excel. Comme tu peux imaginerr, cette instruction fermera tous les classeurs Excel qui sont ouverts sans faire de sauvegarde. Donc assez dur cela surtout si d'autres classeurs sont ouverts à l'arrière plan.

Donc considère que la macro proposée fonctionne si tu n'as que 'nom de classeur.xls' qui est ouvert.
Si cela peut être le contraire, ne mets pas l'instrcution dont je t'ai parlé ci-avant. Cela ne fermera pas excel en entier.

Si pb n'hésite pas

😉

Edition : oups !, la macro est à placer en VBA dans THISWORKBOOK.

Message édité par: Dan, à: 13/02/2006 12:42

 

[jojo]

Il y a plus simple aussi car, si c pour un controle, recopier des truc betement est inutile !

 

[Dan]

Re,

Jojo, si tu viens ici pour faire des critiques sur ce que ce qui est demandé ou proposé, sans avoir un minimum de politesse, je pense que tu n'as vraiment rien à faire sur ce forum.

Si tu as encore l'intention de poster quoi que ce soit, passe déjà par la lecture de ce document --> La charte.

Par rapport à ce post, lis au moins ce qui est demandé !