Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel installer chrono pour fermer fichier ?

installer chrono pour fermer fichier ?

15 réponses
Avatar
hys56
bonjour à tous, je cherche comment installer un chrono qui fermerait un
fichier excel après un temps déterminé.
J'utlise excel pour effectuer des controles auprès de mes élèves et je
voudrais limiter le temps imparti.
Il serait également utile d'enregistrer à la fermeture
merci d'une aide.
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
JB
-Alt+F11
-Insertion/Module
-Copier/Coller du code

Dim temps
Sub majHeure()
[A1] = [A1] - 1 ' adapter
If [A1] = 0 Then
Beep
Beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30 ' adapter
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

-Enregister
-Fermer

JB
On 13 nov, 18:18, "hys56" wrote:
merci à jb pour votre rapidité de réponse
comme je manipule très mal vb serait-il possible de m'indiquer où je dois
copier ces codes : module, workbook ou worksheet ou ...encore mieux ,...m ais
là je crois que j'abuse vraiment :-), me donner la feuille de calcul av ec
les codes déjà installés
merci et bonne soirée

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?lnrXzFOEFu

Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
beep
beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

JB

On 13 nov, 17:14, "hys56" wrote:



à jb
bonsoir et encore merci pour la feuille de calcul toutefois et j'espè re ne
pas abuser serait-il possible de concevoir une feuille semblable qui
contiendrait en plus un compte à rebours le tout déclenché par un bouton à
disposition de l'élève
je suis absolument novice dns le vb et une nouvelle aide me serait tr ès
utile
"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeDe...

Dans un module:
Public HeureFermeture

Sub FermeClasseur()
ActiveWorkbook.Close True
End Sub

Dans thisWorkbook:
Private Sub Workbook_Open()
HeureFermeture = Now + TimeValue("00:1:00")
Application.OnTime HeureFermeture, "FermeClasseur"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=HeureFermeture,
Procedure:="fermeClasseur", Schedule:úlse
End Sub

JBhttp://boisgontierjacques.free.fr

On 10 nov, 16:04, "hys56" wrote:

bonjour à tous, je cherche comment installer un chrono qui fermerai t un
fichier excel après un temps déterminé.
J'utlise excel pour effectuer des controles auprès de mes élève s et je
voudrais limiter le temps imparti.
Il serait également utile d'enregistrer à la fermeture
merci d'une aide.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -




Avatar
hys56
re désolé je n'avais pas fait attention au lien (prof fatigué après 8h de
cours) c'est super voilà exactement ce que je cherchais non pas comme le
pensent certains pour torturer encore plus les élèves mais pour équilibrer
la réussite des contrôles. Encore merci ( je me répète) et bonne soirée
"JB" a écrit dans le message de news:

-Alt+F11
-Insertion/Module
-Copier/Coller du code

Dim temps
Sub majHeure()
[A1] = [A1] - 1 ' adapter
If [A1] = 0 Then
Beep
Beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30 ' adapter
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

-Enregister
-Fermer

JB
On 13 nov, 18:18, "hys56" wrote:
merci à jb pour votre rapidité de réponse
comme je manipule très mal vb serait-il possible de m'indiquer où je dois
copier ces codes : module, workbook ou worksheet ou ...encore mieux
,...mais
là je crois que j'abuse vraiment :-), me donner la feuille de calcul avec
les codes déjà installés
merci et bonne soirée

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?lnrXzFOEFu

Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
beep
beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

JB

On 13 nov, 17:14, "hys56" wrote:



à jb
bonsoir et encore merci pour la feuille de calcul toutefois et j'espère
ne
pas abuser serait-il possible de concevoir une feuille semblable qui
contiendrait en plus un compte à rebours le tout déclenché par un bouton
à
disposition de l'élève
je suis absolument novice dns le vb et une nouvelle aide me serait très
utile
"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeDe...

Dans un module:
Public HeureFermeture

Sub FermeClasseur()
ActiveWorkbook.Close True
End Sub

Dans thisWorkbook:
Private Sub Workbook_Open()
HeureFermeture = Now + TimeValue("00:1:00")
Application.OnTime HeureFermeture, "FermeClasseur"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=HeureFermeture,
Procedure:="fermeClasseur", Schedule:úlse
End Sub

JBhttp://boisgontierjacques.free.fr

On 10 nov, 16:04, "hys56" wrote:

bonjour à tous, je cherche comment installer un chrono qui fermerait
un
fichier excel après un temps déterminé.
J'utlise excel pour effectuer des controles auprès de mes élèves et je
voudrais limiter le temps imparti.
Il serait également utile d'enregistrer à la fermeture
merci d'une aide.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




Avatar
hys56
bonjour je me permets à nouveau de demander une aide
j'ai modifié la feuille de calcul
en y ajoutant un bouton qui fait passer à la 2ème feuille et démarrer le
countdown ( sur la 1ère l'élève trouve les instruction et sur la 2ème le
test) il a donc le temps de lire les consignes
je souhaiterais que le countdown figure sur la deuxième feuille et même
peut-être aussi sur la 3ème( selon la taille du test)
J'ai également remplacé le beep beep par un message qui s'affiche juste
avant la fermeture.
voici le code modifié ce serait gentil d'ajouter, si possible, les
modifications souhaitées
merci beaucoup
Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
MsgBox "Trop tard! C'est fini!"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
état = True
[A1] = 10
majHeure
Sheets("Feuil2").Select
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
"JB" a écrit dans le message de news:

-Alt+F11
-Insertion/Module
-Copier/Coller du code

Dim temps
Sub majHeure()
[A1] = [A1] - 1 ' adapter
If [A1] = 0 Then
Beep
Beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30 ' adapter
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

-Enregister
-Fermer

JB
On 13 nov, 18:18, "hys56" wrote:
merci à jb pour votre rapidité de réponse
comme je manipule très mal vb serait-il possible de m'indiquer où je dois
copier ces codes : module, workbook ou worksheet ou ...encore mieux
,...mais
là je crois que j'abuse vraiment :-), me donner la feuille de calcul avec
les codes déjà installés
merci et bonne soirée

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?lnrXzFOEFu

Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
beep
beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

JB

On 13 nov, 17:14, "hys56" wrote:



à jb
bonsoir et encore merci pour la feuille de calcul toutefois et j'espère
ne
pas abuser serait-il possible de concevoir une feuille semblable qui
contiendrait en plus un compte à rebours le tout déclenché par un bouton
à
disposition de l'élève
je suis absolument novice dns le vb et une nouvelle aide me serait très
utile
"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeDe...

Dans un module:
Public HeureFermeture

Sub FermeClasseur()
ActiveWorkbook.Close True
End Sub

Dans thisWorkbook:
Private Sub Workbook_Open()
HeureFermeture = Now + TimeValue("00:1:00")
Application.OnTime HeureFermeture, "FermeClasseur"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=HeureFermeture,
Procedure:="fermeClasseur", Schedule:úlse
End Sub

JBhttp://boisgontierjacques.free.fr

On 10 nov, 16:04, "hys56" wrote:

bonjour à tous, je cherche comment installer un chrono qui fermerait
un
fichier excel après un temps déterminé.
J'utlise excel pour effectuer des controles auprès de mes élèves et je
voudrais limiter le temps imparti.
Il serait également utile d'enregistrer à la fermeture
merci d'une aide.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -




Avatar
JB
Bonsoir,

http://cjoint.com/?losILsvecK

JB


On 14 nov, 15:00, "hys56" wrote:
bonjour je me permets à nouveau de demander une aide
j'ai modifié la feuille de calcul
en y ajoutant un bouton qui fait passer à la 2ème feuille et démarr er le
countdown ( sur la 1ère l'élève trouve les instruction et sur la 2 ème le
test) il a donc le temps de lire les consignes
je souhaiterais que le countdown figure sur la deuxième feuille et mê me
peut-être aussi sur la 3ème( selon la taille du test)
J'ai également remplacé le beep beep par un message qui s'affiche jus te
avant la fermeture.
voici le code modifié ce serait gentil d'ajouter, si possible, les
modifications souhaitées
merci beaucoup
Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
MsgBox "Trop tard! C'est fini!"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
état = True
[A1] = 10
majHeure
Sheets("Feuil2").Select
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
"JB" a écrit dans le message de news:

-Alt+F11
-Insertion/Module
-Copier/Coller du code

Dim temps
Sub majHeure()
[A1] = [A1] - 1 ' adapter
If [A1] = 0 Then
Beep
Beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30 ' adapter
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

-Enregister
-Fermer

JB
On 13 nov, 18:18, "hys56" wrote:



merci àjbpour votre rapidité de réponse
comme je manipule très mal vb serait-il possible de m'indiquer où j e dois
copier ces codes : module, workbook ou worksheet ou ...encore mieux
,...mais
là je crois que j'abuse vraiment :-), me donner la feuille de calcul avec
les codes déjà installés
merci et bonne soirée

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?lnrXzFOEFu

Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
beep
beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

JB

On 13 nov, 17:14, "hys56" wrote:

àjb
bonsoir et encore merci pour la feuille de calcul toutefois et j'esp ère
ne
pas abuser serait-il possible de concevoir une feuille semblable qui
contiendrait en plus un compte à rebours le tout déclenché par un bouton
à
disposition de l'élève
je suis absolument novice dns le vb et une nouvelle aide me serait tr ès
utile
"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeDe. ..

Dans un module:
Public HeureFermeture

Sub FermeClasseur()
ActiveWorkbook.Close True
End Sub

Dans thisWorkbook:
Private Sub Workbook_Open()
HeureFermeture = Now + TimeValue("00:1:00")
Application.OnTime HeureFermeture, "FermeClasseur"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=HeureFermeture,
Procedure:="fermeClasseur", Schedule:úlse
End Sub

JBhttp://boisgontierjacques.free.fr

On 10 nov, 16:04, "hys56" wrote:

bonjour à tous, je cherche comment installer un chrono qui fermer ait
un
fichier excel après un temps déterminé.
J'utlise excel pour effectuer des controles auprès de mes élè ves et je
voudrais limiter le temps imparti.
Il serait également utile d'enregistrer à la fermeture
merci d'une aide.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte d es
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -





Avatar
hys56
bonsoir et merci c'est exactement la support adéquat
je suis allé voir votre site c'est une mine d'astuces j'en ai trouvé de très
intéressantes pour mon cahier d'évaluation que je réalise avec excel avec de
simple formules
hys56
"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?losILsvecK

JB


On 14 nov, 15:00, "hys56" wrote:
bonjour je me permets à nouveau de demander une aide
j'ai modifié la feuille de calcul
en y ajoutant un bouton qui fait passer à la 2ème feuille et démarrer le
countdown ( sur la 1ère l'élève trouve les instruction et sur la 2ème le
test) il a donc le temps de lire les consignes
je souhaiterais que le countdown figure sur la deuxième feuille et même
peut-être aussi sur la 3ème( selon la taille du test)
J'ai également remplacé le beep beep par un message qui s'affiche juste
avant la fermeture.
voici le code modifié ce serait gentil d'ajouter, si possible, les
modifications souhaitées
merci beaucoup
Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
MsgBox "Trop tard! C'est fini!"
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub
Sub démarrer()
état = True
[A1] = 10
majHeure
Sheets("Feuil2").Select
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub
"JB" a écrit dans le message de news:

-Alt+F11
-Insertion/Module
-Copier/Coller du code

Dim temps
Sub majHeure()
[A1] = [A1] - 1 ' adapter
If [A1] = 0 Then
Beep
Beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30 ' adapter
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

-Enregister
-Fermer

JB
On 13 nov, 18:18, "hys56" wrote:



merci àjbpour votre rapidité de réponse
comme je manipule très mal vb serait-il possible de m'indiquer où je
dois
copier ces codes : module, workbook ou worksheet ou ...encore mieux
,...mais
là je crois que j'abuse vraiment :-), me donner la feuille de calcul
avec
les codes déjà installés
merci et bonne soirée

"JB" a écrit dans le message de news:

Bonsoir,

http://cjoint.com/?lnrXzFOEFu

Dim temps
Sub majHeure()
[A1] = [A1] - 1
If [A1] = 0 Then
beep
beep
ActiveWorkbook.Close True
Else
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End If
End Sub

Sub auto_open()
[A1] = 30
majHeure
End Sub

Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:úlse
End Sub

JB

On 13 nov, 17:14, "hys56" wrote:

àjb
bonsoir et encore merci pour la feuille de calcul toutefois et
j'espère
ne
pas abuser serait-il possible de concevoir une feuille semblable qui
contiendrait en plus un compte à rebours le tout déclenché par un
bouton
à
disposition de l'élève
je suis absolument novice dns le vb et une nouvelle aide me serait
très
utile
"JB" a écrit dans le message de news:

Bonjour,

http://boisgontierjacques.free.fr/fichiers/Evenementiel/OnTimeFermeDe...

Dans un module:
Public HeureFermeture

Sub FermeClasseur()
ActiveWorkbook.Close True
End Sub

Dans thisWorkbook:
Private Sub Workbook_Open()
HeureFermeture = Now + TimeValue("00:1:00")
Application.OnTime HeureFermeture, "FermeClasseur"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime EarliestTime:=HeureFermeture,
Procedure:="fermeClasseur", Schedule:úlse
End Sub

JBhttp://boisgontierjacques.free.fr

On 10 nov, 16:04, "hys56" wrote:

bonjour à tous, je cherche comment installer un chrono qui fermerait
un
fichier excel après un temps déterminé.
J'utlise excel pour effectuer des controles auprès de mes élèves et
je
voudrais limiter le temps imparti.
Il serait également utile d'enregistrer à la fermeture
merci d'une aide.- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -


- Afficher le texte des messages précédents -





1 2