[VBA] Fermeture avec enreg sans boite de dial

Fermé
Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 - 8 juin 2007 à 10:04
 gugu45000 - 21 mai 2010 à 11:21
Bonjour,

Voila je viens de créer une application de Excel et je voudrais quand je fais fichier fermer ou quitter ou encrore la croix en haut a droite que mon fichier s'enregistre automatiquement sans rien ne me demander avec le meme nom et à l'endroit ou il se trouve!
Precisions: je pensais le mettre dans Private Sub Workbook_BeforeClose(Cancel As Boolean) de la feuille Thisworkbook, dans cette partie il y a déja une macro qui me met en mise en page standard. cela va posé problème ???

merci de vos réponses!

7 réponses

Mike-31 Messages postés 18320 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 20 juin 2024 5 086
2 févr. 2009 à 10:35
Salut,

Places ce code dans la ThisWorbook.
Clic droit sur un onglet/Visualiser le code/double clic sur ThisBokbook et colles le code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub

A+
ca marche pas.

J'ai bien écris ce script, puis je teste en faisant :

ouverture manuel du fichier
une modif quelquonc sur le fichier
je ferme le fichier
et là, il me redemande si je veux enregistrer ....


d'ou viens le pbm ?? . . .
0
Ok j'étais pas sur ma workbook mais sur ma feuille

Ok ca marche, super.


Merci !
0
merci pour cette solution fonctionnel et utilisable de moins de 15sec ;)
0