VBA pour fermer un document excel

Skeo -  
benzi Messages postés 84 Statut Membre -
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

  1. Skeo
     
    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
  2. benzi Messages postés 84 Statut Membre 1
     
    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