[VBA] Fermeture avec enreg sans boite de dial

Fermé

Vba
Classeur

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!

A voir également:

Vba fermer fichier sans enregistrer
Fichier rar - Guide
Audacity enregistrer son pc - Guide
Fichier host - Guide
Comment ouvrir un fichier epub ? - Guide
Le fichier à télécharger est la nouvelle note de service de votre entreprise. importez ce fichier dans le bon dossier sur l'espace pix cloud. donnez à ce fichier les mêmes droits d'accès que les autres notes de service. ✓ - Forum Windows

7 réponses

Réponse 1 / 7

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
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+

Monk
2 févr. 2009 à 10:49

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 ?? . . .

Monk
2 févr. 2009 à 11:02

Ok j'étais pas sur ma workbook mais sur ma feuille

Ok ca marche, super.

Merci !

gugu45000
21 mai 2010 à 11:21

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

Réponse 2 / 7

Sir_DEC Messages postés 143 Date d'inscription mardi 17 avril 2007 Statut Membre Dernière intervention 12 mai 2012 75
12 juin 2007 à 10:02

Tu peux parfaitement rajouter une macro dans le "BeforeClose" pour enregistrer ton classeur.

Sinon, tu peux créer un bouton (ou un évènement) exécutant le code "ActiveWorbook.Close True".

Sir_DEC

Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 25
12 juin 2007 à 10:16

pourrais je avoir les détail stp sur le système pour enregistrer automatiquement??? Merci

Sir_DEC Messages postés 143 Date d'inscription mardi 17 avril 2007 Statut Membre Dernière intervention 12 mai 2012 75 > Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007
12 juin 2007 à 10:34

Plusieurs manières de faire :

La première que je t'ai donné, sers à fermer le classeur "ActiveWorkbook.Close" en lui donnant en paramètre si l'on veut sauvegarder ou non ("True" ou "False") de la manière suivante : "ActiveWorkbook.Close True". Par contre je ne me rappelle plus si la sauvegarde est automatique dans ce cas (en tout cas pas si le classeur n'a jamais été enregistré, ça c'est certain).

Ensuite : "Application.GetSaveAsFilename" qui ouvre simplement la fenêtre "Enregistrer sous..." (Save As...)

Et enfin : "ActiveWorkbook.SaveAs filename:=nom_souhaité" (en remplaçant le "nom_souhaité" par le nom que l'on veut donner au fichier).

Bien sûr le "ActiveWorkbook" peut être remplacé par ThisWorkbook ou par le nom du classeur Workbooks("Nom_du_classeur.xls").

Voilà pour toi

Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 25 > Sir_DEC Messages postés 143 Date d'inscription mardi 17 avril 2007 Statut Membre Dernière intervention 12 mai 2012
12 juin 2007 à 10:40

merci c'est très clair , je vais le faire tout de suite

par contre je ne veux pas qu'il me change le nom quand je quitte

ActiveWorkbook.SaveAs filename:=ThisWorkbook.Name

Réponse 3 / 7

Sir_DEC Messages postés 143 Date d'inscription mardi 17 avril 2007 Statut Membre Dernière intervention 12 mai 2012 75
12 juin 2007 à 11:41

ActiveWorkbook.Close -> Fermeture du classeur
Application.Close -> Fermeture d'Excel

A noter que si tu fermes ton application avec en paramètre "False" (pas de sauvegarde), tous les classeurs ouverts seront fermés sans sauvegarde, fais bien attention donc.

Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 25
12 juin 2007 à 11:48

il me met erreur 438 propriété ou méthode non géré par cet objet
pour Application.Close

Sir_DEC Messages postés 143 Date d'inscription mardi 17 avril 2007 Statut Membre Dernière intervention 12 mai 2012 75
12 juin 2007 à 11:58

Autant pour moi, c'est Application.Quit.

Dog killer Messages postés 57 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 12 juin 2007 25
12 juin 2007 à 13:31

par contre il faut que je mette les composant dans quel ordre???

merci

Discussions similaires

VBA Executer une macro a l'ouverture de excel

convertir plusieur feuilles excel en un pdf

Excel : faire un fichier par onglet

Excel-ouvrir classeur sur une feuille précise

activer un classeur en vba excel

VBA fermer un fichier Excel