Message"Fichier désormais disponible"

[TopNotch63]

Bonjour,

J'ai créé une application avec excel qui enregistre des données dans un classeur "central", que plusieurs utilisateurs peuvent écrire dedans. Les macros ouvrent ce fichier cental et enregistrent les modifications. Ce processus prend environ 2 secondes à s'exécuter.(ouverture, enregistrement et fermeture du fichier)

Dans mes macro j'ai prévu que si le fichier est déjà ouvert, il n'a qu'à réessayer dans 2 secondes. voici le code:

Application.DisplayAlerts = False
If ActiveWorkbook.ReadOnly Then
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
tentative = tentative + 2
ActiveWorkbook.Close
If tentative = 10 Then
MsgBox "Le fichier principal est ouvert, il n'est pas disponible pour écriture. Il faut fermer le fichier TransfertJournal.xls pour pouvoir poursuivre"
'Aucun problème on peut poursuivre
Exit Sub
Else
GoTo AutreEssai
End If
End If

Tout cela fonctionne bien.

Mon problème est lorsqu'on ferme notre fichier "interface" si ce dernier a tenté
d'ouvrir le fichier central pendant que que celui-ci était ouvert, nous aurons un message "Fichier central est à présent disponible pour modification"

J'aimerais que ce message ne s'affiche pas, puisque la sauvegarde a eu lieu.

Merci.