Discussion :

[amazigh42]

Bonjour,

Peut-on rajouter à une macro existante, un bout de programme fermant le fichier Excel au bout de 5mn par exemple.

Merci de votre aide.

[keygen08]

bonjour. Oui

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
Private Sub CommandButton1_Click()
Dim PauseTime, Start, Finish, TotalTime
 If (MsgBox("Fermer le classeur dans 5 secondes", 4)) = vbYes Then
 PauseTime = 5 ' Set duration.
 Start = Timer ' Set start time.
 Do While Timer < Start + PauseTime
 DoEvents ' permettre a d'autre processus de s'executer
 Loop
 Finish = Timer ' Set end time.
 TotalTime = Finish - Start ' Calculer le temps total.
 Else
 End
 End If
ActiveWorkbook.Close True
End Sub

[Youni92]

N'oubliez pas la fonction "recherche"
http://www.developpez.net/forums/d12...ier-condition/

[boisgontierjacques]

Bonjour,

cf PJ

Ferme le classeur après un temps d'inactivité dans les feuilles de calcul.

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Dans un module:
 
Public HeureArrêt
Sub ProchainArret()
 HeureArrêt = Now + TimeValue("00:02:00")
 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
End Sub
 
Dans ThisWorkBook:
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

Jacques Boisgontier

[amazigh42]

Merci de votre aide,

Votre macro est intéressante mais demande l'intervention humaine.

Pouvez-vous me donner le code VBA pour enregistrer et fermer automatiquement sans validation et au bout d'un temps donné.
Ce bout de code, je l'insèrerai dans ma macro déjà existante.

Merci d'avance