IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Quitter l'application Excel automatiquement


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 23
    Par défaut Quitter l'application Excel automatiquement
    Bonjour à tous,
    Je suis en train de réaliser une macro en VBA sous Excel. L'objectif de cette dernière est de sauvegarder, fermer la feuille Excel mais aussi l'application. Tout fonctionne sauf que l'application ne se ferme pas.

    Voici mon code :
    Dans un module :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Public HeureArrêt
    Sub ProchainArret()
     HeureArrêt = Now + TimeValue("00:10:10")
     Application.OnTime HeureArrêt, "Fin"
     Sheets(1).[A1] = HeureArrêt
    End Sub
     
    Sub Fin()
      On Error Resume Next
      Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False    'annule événnement
      ThisWorkbook.Close True
      Application.Quit
    End Sub
    Dans ThisWorkbook :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Private Sub Workbook_Open()
     ProchainArret
    End Sub
     
    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
     On Error Resume Next
     Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False
     ProchainArret
    End Sub
     
    Private Sub Workbook_BeforeClose(Cancel As Boolean)
      ThisWorkbook.Save
      'ThisWorkbook.Saved = True
      On Error Resume Next
      Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False  ' annule événnement
    End Sub

  2. #2
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2018
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Vendée (Pays de la Loire)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2018
    Messages : 23
    Par défaut
    J'ai résolu mon problème seul finalement

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Public HeureArrêt
    Sub ProchainArret()
     HeureArrêt = Now + TimeValue("00:00:20")
     Application.OnTime HeureArrêt, "Fin"
     Sheets(1).[A1] = HeureArrêt
    End Sub
     
    Sub Fin()
      On Error Resume Next
      Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False    'annule événnement
      Application.Quit
    End Sub

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 18/05/2014, 17h20
  2. [XL-2010] Comment quitter l'application Excel.exe automatiquement en VBA (SharePoint 2010) ?
    Par mlzim dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 05/11/2012, 09h56
  3. Quitter une application
    Par fgrandjean dans le forum C++Builder
    Réponses: 2
    Dernier message: 04/08/2004, 13h39
  4. Quitter une application FLASH ?
    Par jeje.r dans le forum Flash
    Réponses: 3
    Dernier message: 25/02/2003, 14h57
  5. Impossible de quitter mon application!
    Par Bouillou dans le forum C++Builder
    Réponses: 4
    Dernier message: 12/11/2002, 20h43

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo