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

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #2

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.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #3

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

Bonjour de nouveau


Regardes cette exemple issu de l'aide

Code:

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

Code:

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

et dans un module un macro nommée my_Procedure

 

Dernière édition: 25 Octobre 2011

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #4

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

Code:

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

Code:

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

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Octobre 2011

• #5

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

 

Dernière édition: 25 Octobre 2011

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 25 Octobre 2011

• #6

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.

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 25 Octobre 2011

• #7

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #8

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.

 

Vote positif 0 Vote négatif

A

adi399

XLDnaute Occasionnel

• 25 Octobre 2011

• #9

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

 

Vote positif 0 Vote négatif