Test sur les dates de modification de fichiers

Bonjour,

Je travaille actuellement sur une application VBA/Excel de planning.

Plusieurs personnes peuvent être amenées à consulter et modifier ce planning, et j'ai besoin qu'on puisse l'éditer en local ou en réseau (la version "mère" étant donc sur un disque réseau commun).
Chaque utilisateur a donc un fichier local contenant du code, et à chaque ouverture/enregistrement du fichier, j'ai des procédures qui récupèrent la version mère si elle est plus récente, et la mettent à jour lors de l'enregistrement du fichier local.
J'ai donc tout un arbre de test Oui/Non, avec plusieurs possibilités de résultat qui déclenchent des procédures de récup/enregistrement différentes selon les situations.

Mon problème : il est possible qu'un utilisateur ouvre le planning, l'enregistre sur la version mère, et laisse son application locale ouverte pendant une longue durée (oublie de le fermer). Pendant ce temps, un autre utilisateur peut ouvrir son application, faire une modification et réenregistrer sur la version mère.

On se retrouve alors avec le premier utilisateur qui a sa version du planning ouverte, et qui n'est pas à jour avec les dernières modifications réalisées par le deuxième utilisateur.
Le premier utilisateur va donc revenir après plusieurs heures, il voit que son application est ouverte, il la ferme. Puisqu'il est consciencieux, il l'enregistre avant : on se retrouve alors avec une version mère altérée, on a effacé les modifications que le deuxième utilisateur a effectué entre-temps.

J'ai donc besoin de réaliser un test, qui répond à cette question : "Est-ce que le fichier mère a été altéré depuis que j'ai ouvert mon application ?"

Et je n'arrive pas à trouver de réponse technique pour traduire cette question en code, d'où mon besoin d'aide.

Merci d'avance,
James

Bonjour James

Pour avoir la date de dernière modification du planning,

Code:

---

1 2 3 4 5 6 7

Dim monPlanning as string Dim Fso 'as Scripting.FileSystemObject Dim oFile 'as File monPlanning= "c:\...\monPlanning.xls" Set Fso = CreateObject("Scripting.FileSystemObject") Set oFile= Fso.GetFile(monPlanning) Msgbox oFile.DateLastModified

---

Pour avoir la date de dernière exécution du classeur
Dans ThisWorkbook

Code:

---

1 2 3

Private Sub Workbook_Open() dt = Now End Sub

---

Il faudra ensuite utiliser la fonction DateDiff pour comparer les dates

Bonjour.

J'ai été confronté récemment à ce genre de problématique où il faut partager un fichier en écriture sur un réseau d'entreprise.
J'ai apporté une solution différente de la votre mais qui peut peut-être vous intéresser, et qui pourra peut être s'adapter à votre situation.

J'ai rédigé cette documentation qui explique tout cela : https://laurent-ott.developpez.com/t...chier_partage/

Cordialement.

Citation:

---

Envoyé par fraflt69

---

Je pensais faire un test sur les dernières dates de modification aussi. Je vais essayer ce principe de solution et voir ce que ça donne.

Citation:

---

Envoyé par laurent_ott

---

Je n'ai pas eu le temps de lire l'article entièrement ; de ce que je comprend on stock la feuille excel dans un fichier access ?
Access me rend un peu frileux, je ne connais ni le logiciel ni le VBA derrière