Bonjour,

depuis des années le code suivant fonctionne dans ma version Access/Word 2000 sans aucun problème :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        With .ActiveDocument.MailMerge
                .OpenDataSource _
                    Name:="MaDB.mdb", _
                    LinkToSource:=True, _
                    AddToRecentFiles:=False, _
                    Connection:="QUERY qryNom", _
                    SubType:=wdMergeSubTypeWord2000
 
                .DataSource.QueryString = _
                    "SELECT * FROM qryNom] " & _
                        "WHERE NoDonnée = " & intNoDonnée
 
                .Destination = wdSendToPrinter
                .Execute
        End With
Mais il m'est impossible de le faire fonctionner sous Access/Word 2010.

J'ai une erreur à la ligne OpenDataSource qui m'explique que la base a été verrouillée par l'utilisateur et que Word ne peut pas y accéder. Access crashe alors.

Comment adapter ce code alors ?

Merci pour l'aide,

Stefan