[VBA] Fermeture avec enreg sans boite de dial

Dog killer Messages postés 57 Date d'inscription   Statut Membre Dernière intervention   -  
 gugu45000 -
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!
A voir également:

7 réponses

Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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+
4
Monk
 
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
Monk
 
Ok j'étais pas sur ma workbook mais sur ma feuille

Ok ca marche, super.


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