Discussion :

[redstoff]

bonjour,

je souhaite à l'ouverture d'une page mettre une espèce de timer qui permettra d'activer une macro.
on va dire 10sec après l'ouverture

quelqu'un peut il m'aider sur donc
- la mise en place du timer
- et sur comment lancer une macro à partir d'une autre

merci

[aliasjadawin]

qu'entends-tu par page dans "ouverture de page" ? feuille ou classeur ?
Sinon, renseigne toi sur la fonction Timer (dans VBE -> F2 tapes "Timer" -> F1)

[redstoff]

c'est à l'ouverture du classeur

en gros il y a une page ou 2 utilisateurs sur 2 pc différents peuvent aller

alors pour éviter que l'un des 2 campes sur la page

je veux qu'au bout de 10 sec la page ce ferme

[jfontaine]

Bonjour,

Peut etre une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.Wait (Now + TimeValue("0:00:10"))
 
MsgBox "lancement macro"
End Sub

[patricktoulon]

le seul probleme c'est qu avec la fonction wait tu est bloquer pour tout le reste

au plaisir

rebonjour


tu peut utiliser les api aussi

exemple:tu appelle la macro"demarre" a l'activate de la feuille

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
 
'dans un module standard!!!!!
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Dim maintenant As Long
 
Sub demarre()
    maintenant = 0
    SetTimer Application.hWnd, 0, 1000, AddressOf  metre_a_l_heure
End Sub
 
Sub metre_a_l_heure(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    maintenant = maintenant + 1
If maintenant = 9 Then MsgBox "coucou c'est l'heure on ferme rentre chez toi"
 
End Sub
 
Sub byebye()
    KillTimer Application.hWnd, 0
 
End Sub

et tu n'est pas bloquer pour le reste tralalalalere


au plaisir

[PANGOT911]

Bonjour,
Bonjour,
J'ai eu un peu prés le même problème, c'est à dire que je voulais que le fichier se ferme si l'utilisateur n’a pas fait une action dans le fichier au bout d'un laps de temps défini. J’ai trouvé ces lignes de code.


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

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:00")
    If Sheets(1).[A1] < HeureArrêt Then
        Application.OnTime HeureArrêt, "Fin"
        Sheets(1).[A1] = HeureArrêt
    End If
End Sub
Sub Fin()
  On Error Resume Next
  Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement
  ThisWorkbook.Close True
End Sub

Bonne soirée.
Patrick

[patricktoulon]

bonjour


il ya de l'idée dans ton code mais ca n'a pas l'éffet recherché car il necesite une action

je vais potasser pour le rendre actif tout seul


au plaisir

[patricktoulon]

le seul probleme c'est qu avec la fonction wait tu est bloquer pour tout le reste

au plaisir

rebonjour


tu peut utiliser les api aussi

exemple:tu appelle la macro"demarre" a l'activate de la feuille

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
 
'dans un module standard!!!!!
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Dim maintenant As Long
 
Sub demarre()
    maintenant = 0
    SetTimer Application.hWnd, 0, 1000, AddressOf  metre_a_l_heure
End Sub
 
Sub metre_a_l_heure(ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    maintenant = maintenant + 1
If maintenant = 9 Then
 MsgBox "coucou c'est l'heure on ferme rentre chez toi"
maintenant=0
byebye
End Sub
 
Sub byebye()
    KillTimer Application.hWnd, 0
 
End Sub

et tu n'est pas bloquer pour le reste tralalalalere


au plaisir

j'avais oublié de stoper et de remetre la variable a zero pour la fois suivante


au plaisir