Discussion :

[Sierra]

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

[micniv]

Bonsoir,
je me suis frotté à cette difficulté la semaine passée;
Vois la discussion si ça peut t'aider.
http://www.developpez.net/forums/d95...-publipostage/

[Sierra]

J'ai lu ta discussion et essayé ton code mais je me heurte toujours au message d'erreur :

"La base de données a été placée dans un état par l'utilisateur ' username ' sur l'ordinateur ' machinename ' empêchant d'être ouverte ou verrouillée".

Je me demande donc pourquoi la base n'est pas accessible et comment résoudre ça.

Petite question supplémentaire. Ta ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

name:=maBD.name

À quoi correspond ce .name ?

[micniv]

maDb.name correspond au chemin complet de la base

As-tu ajouté l'argument ConfirmConversions:=True,
à .Opendatasource ? (c'est lui qui te permet de sélectionner une liaison DDE) ?

[Sierra]

J'ai bien ajouté la ligne ConfirmConversions=True.

J'ai fait aussi une expérience :

J'ai copié ma DB dans le même dossier. Elle s'appelle alors "maDB - Copie.mdb".
Au lieu de se connecter sur la DB Access en cours d'exécution du code VBA, elle devra se connecter sur sa copie dans le même dossier.

Miracle : ce code fonctionne sans message d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
        With .ActiveDocument.MailMerge
                .MainDocumentType = wdFormLetters
                .OpenDataSource _
                    Name:=dbName, _   ' dbName = "dbName - Copie"
                    ConfirmConversions:=True, _
                    ReadOnly:=True, _
                    SQLStatement:=strSQL
 
                .Destination = wdSendToPrinter
                .Execute Pause:=False
        End With

C'est donc la connexion de la DB à une requête (dans mon cas) qu'elle contient qui semble précisément poser problème.

Je vais encore expérimenter deux choses :

1. l'ancien code d'Access 2000 tel quel
2. une macro de publipostage avec les mêmes paramètres mais à partir de Word

Je te tiens au courant.

N.B. : Je précise que j'ai vérifié dans les options :
Paramètres du client | Avancé | Mode d’ouverture par défaut | Mode Partagé
Paramètres du client | Avancé | Verrouillage par défaut | Aucun

[micniv]

Bizarre, avec ce type de code, j'arrivais à faire mon publipostage sans erreur. Le problème était que l'instance de la base (ouverte par .opendatasource ...) restait ouverte

Une condition nécessaire cependant à vérifier : préalablement, ton fichier modèle de publipostage doit avoir comme données source une requête valide de ta base de données