Bonjour,
depuis des années le code suivant fonctionne dans ma version Access/Word 2000 sans aucun problème :
Mais il m'est impossible de le faire fonctionner sous Access/Word 2010.
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
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
Partager