[VBA] Fermeture avec enreg sans boite de dial

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

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 à 11:25

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

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 à 11:33

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

Réponse 4 / 7

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

up

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 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 à 13:35

Tu parles des lignes de code ?

A priori il vaudrait mieux sauvegarder avant de quitter, non ?

;-)

Réponse 6 / 7

Monk
2 févr. 2009 à 10:06

Bonjour,

je remonte se post avec une légère nuance,

Serait il possible, par option, de ne pas faire apparaitre la fenetre d'enregistrement lors de la fermeture d'excel.

Je precise, trouver une option à selectionner kk part afin que le fichier se ferme et s'enregistre automatiquement, et si possible sans faire de script macro.(contrainte)

Merci d'avance . . .

Réponse 7 / 7

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
2 févr. 2009 à 11:06

Salut,

Récupères l'exeple avec le lien ci dessous, saisis n'importe quoi et ferme le de la façon que tu souhaites, il va se fermer après enregistrement sans aucun avertissement et fermer Excel

https://www.cjoint.com/?celd2fCucg

A+

Nos posts se sont croisés, si tu ne souhaites pas fermer Excel supprimes cette ligne ou mets unesapostrophe devant

'Application.Quit

N'oublis pas de mettre ton statut en résolu merci A+

[VBA] Fermeture avec enreg sans boite de dial

7 réponses

Discussions similaires

Newsletters