Sauvegarde de fichiers

Bonjour,

Je cherche à faire une sauvegarde de fichiers .mdb à l'ouverture et la
fermeture de différentes bases.
Pour cela j'utilise une base de démarrage avec la table des utilisateurs
contenant le mot de passe ainsi que le fichier sur lequel ils ont un accès.

Actuellement j'ai placer un module (CopyFileDir : joint ci-dessous) que
j'appelle dès lors que le mot de passe est saisi mais cette fonction ne
fonctionne pas lors que le fichier est déjà ouvert par autre utilisateur
(message : Erreur d'execution 70: permission refusée)

Peut-on m'aider à trouver la procèdure qui va bien.

Merci d'avance.

module :
Function CopyFileDir()
DBEngine.Idle dbRefreshCache
Dim sEmplacementInitial As String, sEmplacementFinal As String

sEmplacementInitial = "c:\José\Tests\Base AuditDev.mdb"
sEmplacementFinal = "c:\Base AuditDev.mdb"

'Copie du fichier
FileCopy sEmplacementInitial, sEmplacementFinal
End Function