Automatiser un publipostage dans word a partir d'Access

Bonjour à tous,

J'essaie d'automatiser l'impression d'étiquettes dans Word à partir de
données contenues dans une requete access. Je demande à l'utilisateur de
m'indiquer par des crochets les étiquettes qu'il veut imprimer. Par la suite
il doit seulement peser sur un bouton "imprimer" pour ouvrir word et creer un
document par publipostage qu'il ne lui reste qu'a imprimer. Je suis capable
d'ouvrir word mais incapable d'automatiser le publipostage.

Voici le corps du code:


"Dim oApp As Word.Application
Set oApp = CreateObject("Word.Application")
oApp.Visible = True
oApp.Documents.Open ("C:\Documents and Settings\Yvan Breault\My
Documents\Docs Offline\Nordic\Carte_Kanban1")
oApp.ActiveDocument.MailMerge.OpenDataSource Name:= _
"C:\Documents and Settings\Yvan Breault\My Documents\Docs
Offline\Nordic\NORDICKanban070605.mdb" _
, ConfirmConversions:úlse, ReadOnly:úlse, LinkToSource:=True, _
AddToRecentFiles:úlse, PasswordDocument:="", PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="", Revert:úlse, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID­min;Data
Source=C:\Documents and Settings\Yvan Breault\My Documents\Docs
Offline\Nordic\NORDICKanban070605.mdb;Mode=Read;Extended Properties="""";Jet
OLEDB:System database="""";Jet OLEDB:Registry Path="""";" _
, SQLStatement:="SELECT * FROM `Req_Carte_Kanban`",
SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
oApp.ActiveDocument.MailMerge.Destination = wdSendToNewDocument
oApp.ActiveDocument.MailMerge.Execute
Set oApp = Nothing"

L'erreur est la suivante:

The database has been placed in a state that prevents it from being opened
or locked.

Je comprends ce qui se passe c.a.d que puisque je suis déja dans la base de
données de laquelle word prends ses infos, cette base de donnée n'est pas
disponible pour la lecture. Mais je ne sais pas comment contourner ce
problème.

J'utilise office 2003

A l'aide

Merci

Yvanb