Message informant l'utilisateur que son fichier est ouvert depuis X heures

[adi399]

Bien le bonjour le forum,
après des recherches infructueuses, je fais appel à vous 😉:

Mon idée est de faire apparaître un message à l'écran, après que l'utilisateur ai remplie une case défini et qu'il ce soit écouler 24 h entre temps.

Je m'explique,par exemple: si le 24 octobre à minuit je rempli la cellule A1, je voudrai que passé le 25 octobre à minuit, si le fichier est ouvert, un message apparaisse "attention le fichier est ouvert depuis 24h ou plus".
Je souhaiterais que le fichier ne prenne pas en compte la duré d'ouverture mais bien la durée réelle en fonction de l'horloge.

Je ne sais pas si cela est possible ???
J'espère avoir été asser clair... merci d'avance!
A bientot

 

[TempusFugit]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Bonjour

Inscris la date et l'heure à l'ouverture du classeur (avec WorkBook_Open)
Puis fais une soustraction ensuite.

 

[TempusFugit]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Bonjour de nouveau


Regardes cette exemple issu de l'aide

Sub test()
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
End Sub

[
CODE]Sub my_Procedure()
MsgBox "Bonjour"
End Sub[/CODE]

Donc en adaptant à ton cas, tu mets ceci dans WorkBook_Open()

Application.OnTime Now + TimeValue("24:00:00"), "my_Procedure"

et dans un module un macro nommée my_Procedure

 

[TempusFugit]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Voici un exemple plus complet

Lances la macro test et attends 15 secondes

Public Debut
Sub test()
Debut = Now
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"
End Sub

Sub my_Procedure()
MsgBox Format(Now - Debut, "hh:mm:ss")
End Sub

A essayer en adaptant comme indiqué dans mon message d'avant.

 

[Pierrot93]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Bonjour,

A noter tout de même qu'il est préférable d'invalider la procédure "OnTime " lors de la fermeture du classeur...

Bonne journée
@+

 

[adi399]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Bonjour et merci de votre réponse,
Votre code se rapproche de ce que je souhaite faire.
Etant débutant en programmation, je n'arrive pas à faire déclencher le test automatiquement au moment où la cellule A1 est non nul.
Autres questions: -est-il possible d'écrire moi-même un message dans la box qui apparaît?
- Le code ne me semble pas prendre en compte le fait que si je ferme le fichier, la macro doit continué. votre premier message est peux-être la solution, je vais m'y pencher.

 

[adi399]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Pour le message dans la box c'est réglé je m'en suis sorti !^^

 

[TempusFugit]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

Pour utiliser un MsgBox, voir l'aide disponible dans VBA
(Il y a des exemples)

As-tu pensé à fermer automatiquement ton fichier par macro ?
Comme cela ton fichier ne sera jamais ouvert plus de 24 heures.

 

[adi399]

Re : Message informant l'utilisateur que son fichier est ouvert depuis X heures

j'aimerai justement pouvoir l'ouvrir après 24h mais qu'il y ai juste le message d'alerte.
l'utilisateur déclenche le test en remplissant la case A1 par exemple.
Par exemple, je remplie la case A1 a 01h00. je ferme le fichier à 2h00. si je le réouvre à 01h00 le jour suivant, le message doit apparaitre...