Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Publipostage Word lié avec BDD actuelle

10/02/14 13:14
Bonjour,

J'ai ce message d'erreur suite à un publipostage d'Access vers Word :
[image.noelshack.com]

Étrangement il n'affiche ni la première lettre ni la dernière.


J'avais des soucis d'admin, déjà ouvert : j'ai fractionner ma BDD pour qu'elle soit lié et non plus en un seul fichier. Normalement c'est censé aller.



Si ma BDD est ouverte et que je lance le publipostage manuellement, tout va bien.
Mais pas en vba.

Le code complet :
Langage: Visual Basic
span class="co1">'; ';Module spécifié ? '; ';Si un module et un moment de la journée est spécifié (pour ne faire que celui-ci) ';----------------------------------------------- ';Ouvre le document word qui sert au publipostage ';----------------------------------------------- ';Chemin du document word "\Présences PMTIC\Liste de présence.docx""Word.Application"';Si document fermé : l';ouvre "Word.Application"';----------------------------------- ';Prépare et effectue le publipostage ';----------------------------------- "Imprimante", "tblImprimanteAccess") '; "qry_Aujourdhui_Mod" ';Début du nom de la requête ajout   ';Pour chaque module ';Pour chaque moment de la journée ';Si impression spécifié "8""4 matin""4 après-midi""_"';Nom de la requête complète     ';Si la requête contient au moins un enregistrement : les ajoute à la table *temp puis lance le publipostage "*"';Nbrs d';enregistrement dans la requête "DELETE tbl_publipostage_temp.* FROM tbl_publipostage_temp;" ';Vide la table prévue au publipostage ';Rempli la table prévue au publipostage CurrentDb.Execute ( _ "INSERT INTO tbl_Publipostage_temp ( Jour, N°, Nom, Prénom, [Num DE], [Module], Nbrs_Heure_AmPm, Nbrs ) " & _ "SELECT tbl_Publipostage.Jour, tbl_Publipostage.N°, tbl_Publipostage.Nom, tbl_Publipostage.Prénom, tbl_Publipostage.[Num DE], " & _ "tbl_Publipostage.Module, tbl_Publipostage.Nbrs_Heure_AmPm, "" AS Nbrs " & _ "FROM tbl_Publipostage " & _ "WHERE (((tbl_Publipostage.Jour)=Date()) AND ((tbl_Publipostage.Module)=1) AND ((tbl_Publipostage.Nbrs_Heure_AmPm)=';""';));")   ';Publipostage '; Rend Word visible important puisque la fusion se fait à l';écran. ';ici "TABLE tbl_publipostage_temp""SELECT * FROM tbl_publipostage_temp"   ';Bascule les champs pour imprimer ce qu';ils représentent ou voir le contenu ';Imprime ';Définis l';imprimante à utiliser ';WordApp.WordBasic.FilePrintSetup Printer:=strPrint, DoNotSetAsSysDefault:=1 ';If i + x = 2 Or blnPrintSpec Then WordApp.ActivePrinter = DLookup("Imprimante", "tblImprimanteAccess") ';Premier passage ';Quitte la boucle si impression spécifiée ';Quitte la boucle si impression spécifiée ';Ferme proprement le document


Il bloque ici :
Langage: Visual Basic
span class="st0">"TABLE tbl_publipostage_temp""SELECT * FROM tbl_publipostage_temp"

Juste avant il y a :
Langage: Visual Basic
'; Rend Word visible important puisque la fusion se fait à l';écran.

Word n'est pas au premier plan mais bien visible, je suppose que c'est normal.



Merci beaucoup,
LeGentils
SujetAuteurEnvoyé le

Publipostage Word lié avec BDD actuelle

Legentils10/02/14 13:14

Re: Publipostage Word lié avec BDD actuelle

Legentils13/02/14 08:35

Re: Publipostage Word lié avec BDD actuelle

Legentils18/02/14 15:43

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter