fermer excel à une date et heure précise Résolu/Fermé

Question

Bonjour, 


J'aimerai faire que mon fichier Excel 2010 se ferme automatiquement à une date et heure précise.

comment dois je faire par macro.

Si c'est possible merci de votre aide.

Lionel 

Configuration: Windows 7 / Mozilla 11.0

gbinforme · Answer

Bonjour, 

C'est relativement simple, il te suffit de lancer cette macro qui va vivre sa vie jusqu'à l'heure choisie.
Public Sub fermer()
    Application.OnTime Now + TimeValue("00:00:01"), "fermer"
    If Now > DateValue("18/01/2016") + TimeValue("22:14:01") Then Application.Quit              ' terminé
End Sub
 
Tu choisis bien sûr le jour et l'heure qui peuvent être mis en paramètre de la procédure par exemple.
Tu peux la tester en mettant une heure assez proche.

viret1290 · Answer

Bonjour,

merci mais,

A la place de la date j'aimerai regarder si c'est lundi, mardi, mercredi, jeudi, vendredi ou samedi.
car chaque jour le programme doit se fermer à une autre heure.

merci d'avance

viret1290 · Answer

merci j'ai trouvé le code suivant

Sub auto_open() 
Dim heure$

      Select Case UCase(Feuil2.Cells(1, 1))
         Case "LUNDI"
                heure = "07:05:00" 'ici adapter l'heure
                Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="fermeTout"
         Case "MARDI"
            heure = "09:40:00" 'ici adapter l'heure
            Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
         Case "MERCREDI"
            heure = "09:25:00" 'ici adapter l'heure
            Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
         Case "JEUDI"
            heure = "09:25:00" 'ici adapter l'heure
            Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
         Case "VENDREDI"
            heure = "09:25:00" 'ici adapter l'heure
            Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
         Case "SAMEDI"
            heure = "09:25:00" 'ici adapter l'heure
            Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
         Case "DIMANCHE"
            heure = "09:25:00" 'ici adapter l'heure
            Application.OnTime EarliestTime:=TimeValue(heure), Procedure:="ferme"
        End Select
End Sub

gbinforme · Answer

Bonjour, 

Tu peux l'avoir en plus réduit :
Private Sub Workbook_Open()
Dim heures
' heures arrêt  lundi       mardi       mercredi    jeudi       vendredi    samedi      dimanche
heures = Array("07:05:00", "10:52:00", "07:05:00", "07:05:00", "09:25:00", "07:05:00", "09:25:00")
Application.OnTime EarliestTime:=TimeValue(heures(Weekday(Date, 2) - 1)), Procedure:="ferme"
End Sub

 et il faut mettre la procédure ferme dans un module
Public Sub ferme()
    Application.Quit
End Sub

Fermer excel à une date et heure précise

4 réponses

Discussions similaires