Fermeture automatique d'un autre fichier Excel en réseau

[13GIBE59]

Bonjour à tous.

Je suis en réseau au boulot. Jusqu'ici, c'est simple.

J'ai un fichier nommé "Tartempion1", sur lequel je travaille. A chaque fermeture, j'enregistre les modifications, bien sûr sur ce fichier, mais en plus sur une copie nommée "Tartempion2" située à un autre emplacement du réseau, (accessible en lecture seule pour les intéressés).

Je voudrais intégrer dans Tartempion1 un code forçant la fermeture de Tartempion2 après 15 minutes d'ouverture de celui-ci.
Est-ce possible ?

Merci d'avance.

JB

 

[MJ13]

Bonjour JB

Tu dois pouvoir t'en sortir avec un code de ce type à adapter.

Le range doit être optionnel, c'est juste pour vérifier que le décompte s'est bien fait.

Public heure

Sub Actualiser()
    Range("J" & Range("J65536").End(xlUp).Row + 1) = Now
    heure = Now + TimeValue("00:00:02")
    Application.OnTime heure, "MiseAjour_Cliquer"
End Sub

Sub MiseAjour_Cliquer()
'MsgBox "ok"
Actualiser
End Sub

Sub ActualiserStop()
Application.OnTime EarliestTime:=heure, Procedure:="MiseAjour_Cliquer", Schedule:=False
End Sub

 

[13GIBE59]

Bonjour MJ,

Merci pour ta réponse.
Mais je t'avoue que je ne comprends pas tout...
Dans quel fichier doit être placé ton code ?

Merci d'avance.

JB

 

[MJ13]

Bonjour JB

Voici un exemple de ce qu'on peut faire.