Err 3045 imposs. utiliser nomDB. Fichier en cours d'utilisation.

Bonsoir, Bonjour,

Je me sens complètement désemparé face à ce message :
Impossible d'utiliser «ma-DB». Fichier en cours d'utilisation. (3045)
qui survient lorsque le code associé à un bouton d'un formulaire tout simple arrive sur l'instruction "Set MyDB = CurrentDb" dans cette Sub (les déclarations adéquates sont OK) :

Private Sub cmdImporterFiches_Click()
' Identifie les fichiers présents dans le dossier d'extraction de courriels,
' traite le contenu et le déplace vers le dossier des Traités
    On Error GoTo HandleErrors
Stop
    Set MyDB = CurrentDb	' <=== <=== <=== <=== <=== ICI L'ERREUR FATALE
    Set wDossier = wFSO.GetFolder(Me.ctlChemin)
    For Each wFil In wDossier.Files
        If Left(wFil.Name, 9) = Me.ctlPréfixe Then
            Extract (wFil.Name)    	' validation, lecture et traitement de chaque formulaire
            If SwOK = True Then		' arrêt sur 1er fichier intraitable
                wFil.Move Me.ctlChemin & Me.ctlFichesTraitées
            Else
                Exit For
            End If
        End If
    Next wFil
    Set MyDB = Nothing: Set wDoc = Nothing : Set wDossier = Nothing
    Set wFSO = Nothing: Set wApp = Nothing

ExitHere:
    Exit Sub

HandleErrors:
    HandleErrors Err.Number, "cmdImporterFiches_Click"
    Resume ExitHere
End Sub	'=======================================================

Seul utilisateur de mon PC sous Win 8 Pro et msAccess 2010, j'ai essayé avec les versions .accdb et .mdb. j'ai essayé des procédures de Compacter & Réparer, avec Decompile. J'ai vérifié les permissions de la DB. J'ai recréé une nouvelle DB, importé les objets : même erreur.
En VBA, j'ai dans cet ordre (et j'ai essayé en modifiant la séquence) les références suivantes :
- Visual Basic for Applications
- Microsoft Access 14.0 Object Library
- Ole Automation
- Microsoft Office 14.0 Access database engine Object Library
- Microsoft Scripting Runtime
- Microsoft Word 14.0 Object Library
Ces deux dernières librairies étant nécessaire pour traiter des formulaires Word. Je précise que je n'ai eu aucun problème pour ouvrir ces formulaires, les analyser et en extraire les données, tant que je n'étais pas arrivé à l'ouverture de la DB et des tables.
J'ai essayé des formules alternatives pour ouvrir la DB pour ouvrir une de ses tables :

Set MyDB = OpenDatabase(CheminNomDB, False)
Set MyDB = DBEngine(0)(0)

J'ai lu sur un site que les instructions suivantes pouvaient résoudre le problème :

RefreshDatabaseWindow
DBEngine.Idle dbRefreshCache

La première passe mais n'évite pas l'erreur sur le Set MyDB, la seconde suffit pour déclencher l'erreur 3045.
Je n'ai plus eu l'erreur après avoir transféré mes bases d'un dossier "D:\Proj2013PO\DB" vers un dossier ""D:\Proj2013PO\ProjetMSA", le changement de nom a été fructueux pendant 1 heure ou 2, puis c'est revenu soudainement après avoir codé quelques étapes de traitement. Ce n'est pas mon premier projet avec lequel j'ai cette erreur intermittente, imprévisible et m... Je développe des projets MSA depuis Access 2 et cela fait 40 ans que je suis analyste-programmeur. Je dois avoir une douzaine d'applications MSA perso, avec data DB multiples, etc. J'ai fait des recherches sur de nombreux sites mais en vain...
C'est tout simple : si cette erreur continue à me bloquer, je devrai abandonner ce projet à titre bénévole pour une ONG dont je suis membre. Voir virer Microsoft Access à l'avenir.
Alors tout conseil ou avis est bienvenu et je vous remercie de votre attention.
Michel