J'ai un fichier excel partag=E9. Je souhaites le fermer=20
automatique (pour le lib=E9rer pour les autres utilisateurs)=20
lorsqu'il n'ai pas utilis=E9 pendant un certain temps....=20
Est-ce possible ?
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou .
ru-th
Salut
une piste dans le module thisworkbook Private Sub Workbook_Open() h0 = Now + TimeValue("00:00:15") Application.OnTime h0, "test" End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse h0 = Now + TimeValue("00:00:15") Application.OnTime Now + TimeValue("00:00:15"), "test" End Sub
dans un module standard Public h0 sub test thisworkbook.close end sub
a+ rural thierry
"Lilian" a écrit dans le message de news: 1295c01c3c0a0$99de9f30$ Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs) lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou
Salut
une piste
dans le module thisworkbook
Private Sub Workbook_Open()
h0 = Now + TimeValue("00:00:15")
Application.OnTime h0, "test"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse
h0 = Now + TimeValue("00:00:15")
Application.OnTime Now + TimeValue("00:00:15"), "test"
End Sub
dans un module standard
Public h0
sub test
thisworkbook.close
end sub
a+
rural thierry
"Lilian" <lilian.abraham@free.fr> a écrit dans le message de news:
1295c01c3c0a0$99de9f30$a601280a@phx.gbl...
Salut,
J'ai un fichier excel partagé. Je souhaites le fermer
automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps....
Est-ce possible ?
une piste dans le module thisworkbook Private Sub Workbook_Open() h0 = Now + TimeValue("00:00:15") Application.OnTime h0, "test" End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse h0 = Now + TimeValue("00:00:15") Application.OnTime Now + TimeValue("00:00:15"), "test" End Sub
dans un module standard Public h0 sub test thisworkbook.close end sub
a+ rural thierry
"Lilian" a écrit dans le message de news: 1295c01c3c0a0$99de9f30$ Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs) lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou
lilian
Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste pas de fonction prmettant de vérifier le temps d'inactivité (dans le même esprit que les écrans de veille) ?
Merci. Lilian
-----Message d'origine----- Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou .
.
Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la
feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste
pas de fonction prmettant de vérifier le temps
d'inactivité (dans le même esprit que les écrans de
veille) ?
Merci.
Lilian
-----Message d'origine-----
Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue
("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard
Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine-----
Salut,
J'ai un fichier excel partagé. Je souhaites le fermer
automatique (pour le libérer pour les autres
utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps....
Est-ce possible ?
Ce que voue me proposé, c'est de fermer automatiquement la feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste pas de fonction prmettant de vérifier le temps d'inactivité (dans le même esprit que les écrans de veille) ?
Merci. Lilian
-----Message d'origine----- Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou .
.
Emcy
premier problème : il faut remettre le compteur à zero à chaque action de l'utilisateur (je ne sais pas comment on fait pour remettre le compteur à zero mais ça doit être possible)
le second problème (plus grave) est qu'il est impossible de detecter si la souris bouge : par contre il est possible d'appliquer des événements à chaque fois qu'on change de feuille ou de cellule => ça peut-être une piste
Je ne peux pas plus t'aider ... peut-être que quelqu'un d'autre pourra t'aider...
-----Message d'origine----- Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la
feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste pas de fonction prmettant de vérifier le temps d'inactivité (dans le même esprit que les écrans de veille) ?
Merci. Lilian
-----Message d'origine----- Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps....
Est-ce possible ?
Marci bocou .
.
.
premier problème : il faut remettre le compteur à zero à
chaque action de l'utilisateur (je ne sais pas comment on
fait pour remettre le compteur à zero mais ça doit être
possible)
le second problème (plus grave) est qu'il est impossible
de detecter si la souris bouge : par contre il est
possible d'appliquer des événements à chaque fois qu'on
change de feuille ou de cellule => ça peut-être une piste
Je ne peux pas plus t'aider ... peut-être que quelqu'un
d'autre pourra t'aider...
-----Message d'origine-----
Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement
la
feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste
pas de fonction prmettant de vérifier le temps
d'inactivité (dans le même esprit que les écrans de
veille) ?
Merci.
Lilian
-----Message d'origine-----
Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue
("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard
Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine-----
Salut,
J'ai un fichier excel partagé. Je souhaites le fermer
automatique (pour le libérer pour les autres
utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain
temps....
premier problème : il faut remettre le compteur à zero à chaque action de l'utilisateur (je ne sais pas comment on fait pour remettre le compteur à zero mais ça doit être possible)
le second problème (plus grave) est qu'il est impossible de detecter si la souris bouge : par contre il est possible d'appliquer des événements à chaque fois qu'on change de feuille ou de cellule => ça peut-être une piste
Je ne peux pas plus t'aider ... peut-être que quelqu'un d'autre pourra t'aider...
-----Message d'origine----- Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la
feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste pas de fonction prmettant de vérifier le temps d'inactivité (dans le même esprit que les écrans de veille) ?
Merci. Lilian
-----Message d'origine----- Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps....
Est-ce possible ?
Marci bocou .
.
.
ru-th
oups ! correctif
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse h0 = Now + TimeValue("00:00:15") Application.OnTime h0, "test" End Sub
"ru-th" a écrit dans le message de news: #
Salut
une piste dans le module thisworkbook Private Sub Workbook_Open() h0 = Now + TimeValue("00:00:15") Application.OnTime h0, "test" End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse h0 = Now + TimeValue("00:00:15") Application.OnTime Now + TimeValue("00:00:15"), "test" End Sub
dans un module standard Public h0 sub test thisworkbook.close end sub
a+ rural thierry
"Lilian" a écrit dans le message de news: 1295c01c3c0a0$99de9f30$ Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs) lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou
oups !
correctif
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse
h0 = Now + TimeValue("00:00:15")
Application.OnTime h0, "test"
End Sub
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:
#OY3yzKwDHA.540@tk2msftngp13.phx.gbl...
Salut
une piste
dans le module thisworkbook
Private Sub Workbook_Open()
h0 = Now + TimeValue("00:00:15")
Application.OnTime h0, "test"
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse
h0 = Now + TimeValue("00:00:15")
Application.OnTime Now + TimeValue("00:00:15"), "test"
End Sub
dans un module standard
Public h0
sub test
thisworkbook.close
end sub
a+
rural thierry
"Lilian" <lilian.abraham@free.fr> a écrit dans le message de news:
1295c01c3c0a0$99de9f30$a601280a@phx.gbl...
Salut,
J'ai un fichier excel partagé. Je souhaites le fermer
automatique (pour le libérer pour les autres utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps....
Est-ce possible ?
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse h0 = Now + TimeValue("00:00:15") Application.OnTime h0, "test" End Sub
"ru-th" a écrit dans le message de news: #
Salut
une piste dans le module thisworkbook Private Sub Workbook_Open() h0 = Now + TimeValue("00:00:15") Application.OnTime h0, "test" End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime EarliestTime:=h0, procedure:="test", Schedule:úlse h0 = Now + TimeValue("00:00:15") Application.OnTime Now + TimeValue("00:00:15"), "test" End Sub
dans un module standard Public h0 sub test thisworkbook.close end sub
a+ rural thierry
"Lilian" a écrit dans le message de news: 1295c01c3c0a0$99de9f30$ Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres utilisateurs) lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou
FxM
Bonsoir,
Vérifies périodiquement la cellule active. A chque fois que tu retrouves la précédente, fais compteur+1 sinon compteur=0 et stocker la nouvelle position. Quand compteur atteint ??, tu fermes le classeur.
@+ FxM
lilian wrote:
Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste pas de fonction prmettant de vérifier le temps d'inactivité (dans le même esprit que les écrans de veille) ?
Merci. Lilian
-----Message d'origine----- Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres
utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
Marci bocou .
.
Bonsoir,
Vérifies périodiquement la cellule active. A chque fois que tu
retrouves la précédente, fais compteur+1 sinon compteur=0 et stocker
la nouvelle position. Quand compteur atteint ??, tu fermes le classeur.
@+
FxM
lilian wrote:
Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la
feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste
pas de fonction prmettant de vérifier le temps
d'inactivité (dans le même esprit que les écrans de
veille) ?
Merci.
Lilian
-----Message d'origine-----
Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue
("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard
Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine-----
Salut,
J'ai un fichier excel partagé. Je souhaites le fermer
automatique (pour le libérer pour les autres
utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps....
Est-ce possible ?
Vérifies périodiquement la cellule active. A chque fois que tu retrouves la précédente, fais compteur+1 sinon compteur=0 et stocker la nouvelle position. Quand compteur atteint ??, tu fermes le classeur.
@+ FxM
lilian wrote:
Tout d'abord MERCI a vous !
Ce que voue me proposé, c'est de fermer automatiquement la feuille 15" (ou plus) aprés l'avoir ouverte. Il n'éxiste pas de fonction prmettant de vérifier le temps d'inactivité (dans le même esprit que les écrans de veille) ?
Merci. Lilian
-----Message d'origine----- Salut
'A mettre dans le module ThisWorkbook
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue ("00:00:15"), "FermerExcel" 'ferme dans 15 secondes
End Sub
'a mettre dans un module standard Sub FermerExcel()
Workbooks.Close
End Sub
ça te va ?
-----Message d'origine----- Salut,
J'ai un fichier excel partagé. Je souhaites le fermer automatique (pour le libérer pour les autres
utilisateurs)
lorsqu'il n'ai pas utilisé pendant un certain temps.... Est-ce possible ?
