Discussion :

[lepiaf]

Bonjour,

Est-il possible de tester l'activité d'un classeur ouvert ?
En effet si un classeur est déjà ouvert par quelqu'un , il ne peut etre ouvert a nouveau normalement par quelqu'un d'autre sur le réseau. Il doit être ouvert en lecture seule.Ce qui bloque un accès normal a d'autres personnes souhaitant faire des modifications.

Je pensait faire une procédure déclenché avec "application.ontime" , qui enregistre et ferme le classeur au bout par exemple de 30 mn.Dans le cas ou une personne aurait laissé un classeur ouvert sans l'utiliser.

Mais est-il possible de tester s'il y a eu une activité sur un classeur ouvert pendant un temps donné. Par exemple une propriété de l'objet application ?
Ou une autre solution.

Je souhaiterai tester l’activité sur le classeur avant de provoquer l'enregistrement et la fermeture.
Merci pour vos suggestions.

[helas]

Bonjour,
Il est possible de partager le classeur de façon à ce que plusieurs personnes travaillent en même temps.
Il faut enregistrer immediatement après modification.

Sous Excel 2007 : onglet Révision puis Partager le classeur, cocher Permettre une utilisation multi-utilisateur
Sous Excel 2000 : je pense menu Action puis Partager ou quelqu'un pourra me corriger

[lepiaf]

Bonjour et merci pour votre réponse.

J'ai vu effectivement cette solution de partage.
Mais je ne connais pas les résultats lors de la synchronisation de l'enregistrement des modifications simultanées d'une même feuille excel faite par plusieurs personne. Je doute du bon résultat dans cette configuration.

[patricktoulon]

il y a une solution un peu tarabiscotée mais qui m'a beaucoup servie

dans le workbook open et le feforeclose

ouvrir un fichier raport dans le quel s'enregistre l'utilisateur et l'heure de depart et de fermeture du fichier

la colonne d'heure de fermeture serait visité a l'open du classeur
et si la colone fermeture et la colone ouverture sur la meme ligne sont remplie alors il a été fermé sinon sa veut dire qu'il est ouvert

au plaisir

[lepiaf]

Merci a tous pour vos propositions.

Je recherchais une possibilité de tester l'activité du clavier ou de la souris, avant de fermer excel avec ontime et workbook.close.

Apparemment ce n'est pas possible en vba.
J' ai poursuivi mon application sans cette fonction.

Je vous remercie pour vos suggestions.

Et je marque cette discussion comme résolue.

[fring]

Bonjour,

Au cas où, une solution de Jacques Boigontier

Code à placer dans un module standard :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public HeureArrêt
 
Sub ProchainArret()
   HeureArrêt = Now + TimeValue("00:02:00")
   Application.OnTime HeureArrêt, "Fin"
End Sub
 
Sub Fin()
  On Error Resume Next
  Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False 'annule événnement
  ThisWorkbook.Close True
End Sub

Code à placer dans le module ThisWorkbook :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Workbook_Open()
  ProchainArret
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   On Error Resume Next
   Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False
   ProchainArret
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
'ThisWorkbook.Saved = True
On Error Resume Next
Application.OnTime HeureArrêt, Procedure:="Fin", Schedule:=False ' annule événnement
End Sub