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

2 réponses

Réponse 1 / 2
Skeo
15 avril 2010 à 10:34
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.
0
Réponse 2 / 2
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
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
0