Ouvrir un message quand le fichier est ouvert depuis + de 30mn Résolu/Fermé

Question

Bonjour, 

J'essaie de mettre en place une macro me permetant d'afficher un message quand le fichier est utiliser depuis plus de 30mn. Le must serait quand le fichier est ouvert sans etre modifie, mais je pense que cela va un peu trop loin... 
bref, j'ai ecrit la macro suivante avec mes petites connaissances vba mais le lien ne se fait pas entre les deux macros. Pouvez-vous me dire ce-qu'il manque?


Private Sub Timeout()
Application.OnTime Now + TimeValue("00:00:30"), "Message"

End Sub

Private Sub Message()
MsgBox "This file has been opened for 30mn. If you are not using it, please save and close to enable other users to access it.", vbExclamation
End Sub



Configuration: Windows 7 / Internet Explorer 8.0

f894009 · Accepted Answer

Bonjour,

exemple:

VBA ThisWorkbook

Private Sub Workbook_Open()
  Call Timeout
End Sub

Obligatoirement dans VBA Module:

Sub Timeout()
Application.OnTime Now + TimeValue("00:00:30"), "Message"
End Sub

Sub Message()
MsgBox "This file has been opened for 30mn. If you are not using it, please save and close to enable other users to access it.", vbExclamation
End Sub

Bonne suite

lermite222 · Answer

Bonjour, bonjour fxx 
Huumm oui, cela marche très bien..
Seulement ce système va afficher le message toute les 30 minutes même SI L'UTILISATEUR TRAVAIL sur le classeur. 
et 
"This file has been opened for 30mn. If you are not using it, please save and close to enable other users to access it."
pourrait être fait automatiquement.
Dire si intéressé, j'ai un classeur démo qui fait ça.
A+

lermite222 · Answer

Re, 
le voila. Les explications sont sur la feuille 1 
Y reste un défaut, le message suspend le décompte mais je pourrais facilement y remédier.
A+  
  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

lermite222 · Answer

Le classeur du lien de mon poste précédant à été mis à jour avec des messages automatique. 
Version 2
A+  
  
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius) 
NOTE : Je ne répond pas aux MP pour les questions techniques.

Ouvrir un message quand le fichier est ouvert depuis + de 30mn

4 réponses

Discussions similaires