macro pr quitter l'application

M

Magalie

Guest
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

XLDnaute Barbatruc
Bonjour,

Voici une macro qui fait ce que tu demandes :

Code:
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
 

Dan

XLDnaute Barbatruc
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é !
 

Discussions similaires

Réponses
10
Affichages
172
Réponses
2
Affichages
239