VBA pour fermer un document excel
Fermé
Skeo
-
15 avril 2010 à 09:27
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 - 3 mai 2010 à 21:35
benzi Messages postés 66 Date d'inscription samedi 5 mars 2005 Statut Membre Dernière intervention 28 juillet 2015 - 3 mai 2010 à 21:35
J'aimerai savoir s'il existe un code pour fermer le classeur actuel en le sauvegardant (dans la cas ou il y aurai plusieurs classeur ouvert) ou qui fermerai excel en sauvegardant le classeur dans le cas ou il n'y aurai que ce classeur d'ouvert.
Idem pour quitter sans sauver
Merci
Idem pour quitter sans sauver
Merci
A voir également:
- VBA pour fermer un document excel
- Liste déroulante excel - Guide
- Comment reduire la taille d'un document - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Signer un document word - Guide
- Si et excel - Guide
2 réponses
Pour l'instant j'ai ce petit bout de code:
Sub quittersanssauver()
MsgBox "Quitter sans sauvegarder?", vbQuestion + vbOKCancel, "Confirmation"
If reponse = 2 Then Exit Sub
If reponse = 1 Then Workbooks(Application.ActiveWorkbook.Planning).Close (False)
End Sub
Mais quand je choisi OK rien ne se passe... Et est ce que sa ne fermera que le classeur Planning si ce n'est pas le seul ouvert et tout excel sinon.
Sub quittersanssauver()
MsgBox "Quitter sans sauvegarder?", vbQuestion + vbOKCancel, "Confirmation"
If reponse = 2 Then Exit Sub
If reponse = 1 Then Workbooks(Application.ActiveWorkbook.Planning).Close (False)
End Sub
Mais quand je choisi OK rien ne se passe... Et est ce que sa ne fermera que le classeur Planning si ce n'est pas le seul ouvert et tout excel sinon.
benzi
Messages postés
66
Date d'inscription
samedi 5 mars 2005
Statut
Membre
Dernière intervention
28 juillet 2015
1
3 mai 2010 à 21:35
3 mai 2010 à 21:35
Bonjour,
Tu peux essayer de glisser ce code:
' Ferme le classeur actif et l'enregistrer
ActiveWorkbook.Close SaveChanges:=True
Soit dans un bouton que tu crées , soit dans un programme existant.
A bientôt
Dan
Tu peux essayer de glisser ce code:
' Ferme le classeur actif et l'enregistrer
ActiveWorkbook.Close SaveChanges:=True
Soit dans un bouton que tu crées , soit dans un programme existant.
A bientôt
Dan