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

Résolu
ccccc -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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



4 réponses

Réponse 1 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
3
ccccc
 
Merci! la macro marche. Par contre il faut que je la lance manuellement! Je pensais que les macros dans VBA ThisWorkbook se lancaient automatiquement.
De plus je voudrais que la macro toute en boucle toute les 30 mn.
Merci de votre aide.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,
VBA ThisWorkbook se lancaient automatiquement. si programme pour


Modife:
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
Application.OnTime Now + TimeValue("00:00:30"), "Message"
End Sub
0
ccccc
 
Merci pour tout cela marche tres bien.
0
Réponse 2 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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+
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour lermite,

Suis interesse par ton classeur demo. Merci d'avance
0
Réponse 3 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Merci

le message suspend le décompte une idee: remplacer msgboxs par une UF


Bye
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Re,
Effectivement, c'est à ça que je pense avec un tempo intermédiaire.
Vais en faire une V2 et je reposte.
A+
0
Réponse 4 / 4
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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.
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Merci

Bye
0