Fermeture d'un fichier excel à distance

Version imprimable

12/04/2018, 08h05
chimonito

Fermeture d'un fichier excel à distance

Bonjour à tous,

J'avoue que là, c'est au-dessus de mes capacités.

J'ai un fichier sur le réseau de ma boite (toto.xlsm) qui peut être ouvert pour modification par tous ceux qui ont le mot de passe. Sauf que certains oublie de le fermer et par conséquence le bloque.
J'aimerais pouvoir le fermer en exécutant une macro sur un autre fichier par exemple.

Merci de votre aide

Ben

De ton poste, tu ne peux pas fermer un fichier ouvert sur un autre poste par un autre utilisateur.
Par contre, tu peux mettre un timer dans le fichier :

Dans un module:
Code:

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 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
Grosso modo :
ca enregistre dans A1 de la feuille 1, l'heure à laquelle est ouvert le fichier, heure à laquelle on ajoute ici 1 minute
(tu peux bien sûr augmenter le temps d'attente et/ou l'onglet où tu enregistres cette heure)
A chaque changement de l'utilisateur sur le fichier, cette heure limite est incrémentée.
Quand cette heure est atteinte, le fichier se sauvegarde et se ferme automatiquement.

Merci à boisgontierjacques pour son code
discussion : https://www.developpez.net/forums/d1...d-temps-donne/

12/04/2018, 12h46
chimonito

Ok merci, même si j'execute une macro se trouvant dans mon fichier en question ?

Merci
12/04/2018, 14h15
Bob78280

Quand tu exécutes une macro, tu l'exécutes sur TON poste et non sur le poste d'un autre utilisateur.
Alors à moins de programmer dans le fichier cible, une fermeture automatique au cours de x minutes d'inutilisation, non, tu ne peux pas, à partir de ton poste, fermer un fichier Excel sur un autre poste.
12/04/2018, 14h26
Bob78280
Alors, je vais nuancer ma réponse.
Tu ne peux pas fermer le fichier à distance, mais tu peux déconnecter les utilisateurs qui ont oubliés de fermer le fichier.
Le fichier reste ouvert, mais ils ne pourront plus le sauvegarder, à moins de faire un Fichier/Enregistrer sous
=> Ils vont perdre leurs modifications non sauvegardées
Code:

1 2 ActiveWorkbook.RemoveUser (1)
A faire autant de fois qu'il y a d'utilisateurs connectés
Tu ne pourras pas d'auto-déconnecté
12/04/2018, 15h17
chimonito

Ok je comprends.

Merci beaucoup pour votre aide

à bientôt
12/04/2018, 15h29
Menhir

Citation:

Envoyé par chimonito

J'ai un fichier sur le réseau de ma boite (toto.xlsm) qui peut être ouvert pour modification par tous ceux qui ont le mot de passe. Sauf que certains oublie de le fermer et par conséquence le bloque.

Déjà, c'est une très mauvaise idée d'utiliser un fichier Excel en multi-utilisateurs.
Excel est très maladroit dans cet exercice et ne dispose pas des outils pour le faire proprement.
D'autant plus que, la plupart du temps, ce mode de fonctionnement sert à remplir des tableaux de données.

Donc autant utiliser un outil qui est fait pour ça : un SGBD (Access, Open Base, Libre Base, etc.).

Citation:

J'aimerais pouvoir le fermer en exécutant une macro sur un autre fichier par exemple.

Ce que tu souhaites faire est TREEEEES dangereux : fermer un fichier à l'arrache sans savoir si l'utilisateur l'a sauvegardé ou même s'il souhaite le sauvegarder, c'est l'idéal pour causer (au mieux) des corruptions de données ou (au pire) des tournées de bourepif.

Citation:

Envoyé par Bob78280

Tu ne peux pas fermer le fichier à distance, mais tu peux déconnecter les utilisateurs qui ont oubliés de fermer le fichier.
Le fichier reste ouvert, mais ils ne pourront plus le sauvegarder, à moins de faire un Fichier/Enregistrer sous
=> Ils vont perdre leurs modifications non sauvegardées

Typiquement le genre de procédure qui déclenche la tournée de bourepif dont je parlais.

La méthode qui me semble la moins risquée est de vérifier avec la propriété UserStatus quel est l'utilisateur qui est en train d'utiliser le fichier et de lui passer un coup de fil (ou de lui filer un coup de pompe, chacun des goûts) pour lui demander de fermer le fichier.
https://msdn.microsoft.com/fr-fr/vba...property-excel