[VBA] Fermeture avec enreg sans boite de dial [Fermé]
Signaler
Dog killer
gugu45000 -
- Messages postés
- 57
- Date d'inscription
- lundi 28 mai 2007
- Statut
- Membre
- Dernière intervention
- 12 juin 2007
gugu45000 -
A voir également:
- Fermer un fichier excel vba
- Vba lire fichier excel sans l'ouvrir - Conseils pratiques - Excel
- Vba fermer un fichier sans enregistrer ✓ - Forum - VB / VBA
- VBA Charger une police sans l'installer - AddFontResource - Conseils pratiques - Visual Basic
- [VBA] Sauvegarder une copie sans les macros ✓ - Forum - VB / VBA
- Faire Cop/Col en VBA sur feuille cachée sans afficher la feuille ✓ - Forum - Excel
7 réponses
Mike-31
- Messages postés
- 17298
- Date d'inscription
- dimanche 17 février 2008
- Statut
- Contributeur
- Dernière intervention
- 31 décembre 2020
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+
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+
Sir_DEC
- Messages postés
- 143
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
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
Sinon, tu peux créer un bouton (ou un évènement) exécutant le code "ActiveWorbook.Close True".
Sir_DEC
Sir_DEC
- Messages postés
- 143
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
- Messages postés
- 57
- Date d'inscription
- lundi 28 mai 2007
- Statut
- Membre
- Dernière intervention
- 12 juin 2007
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
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
- Messages postés
- 143
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
par contre je ne veux pas qu'il me change le nom quand je quitte
Dog killer
- Messages postés
- 57
- Date d'inscription
- lundi 28 mai 2007
- Statut
- Membre
- Dernière intervention
- 12 juin 2007
- Messages postés
- 143
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
par contre il ne me ferme pas excel mais juste le classeur !!!
serait ce possiblee de fermer excel aussi ???
merci
serait ce possiblee de fermer excel aussi ???
merci
Sir_DEC
- Messages postés
- 143
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
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.
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
up
Sir_DEC
- Messages postés
- 143
- Date d'inscription
- mardi 17 avril 2007
- Statut
- Membre
- Dernière intervention
- 12 mai 2012
Tu parles des lignes de code ?
A priori il vaudrait mieux sauvegarder avant de quitter, non ?
;-)
A priori il vaudrait mieux sauvegarder avant de quitter, non ?
;-)
Monk
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 . . .
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 . . .
Mike-31
- Messages postés
- 17298
- Date d'inscription
- dimanche 17 février 2008
- Statut
- Contributeur
- Dernière intervention
- 31 décembre 2020
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+
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+
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 ?? . . .
Ok ca marche, super.
Merci !