Discussion :

[Invité]

Bonjour, j'effectue un publipostage en utilisant les données d'une table Access. Cependant, si un champ de fusion du fichier Word n'existe pas dans la table, alors j'ai le message : "Champ de fusion non valide" qui me demande si je veux supprimer le champ, ou le remplacer par un champ de fusion valide de la base de données.
J'aimerais que, dans ce cas, le champ soit automatiquement supprimer...
Comment faire ? merci

[carden752]

Bonjour,

Tu ne devrais pas avoir ce type de message d'erreur.
Après pour le supprimer, il faudrait avant la fusion lister l'ensemble des champs de publipostage utilisé dans le document et les comparer un à un à ceux de ta source de données. S'ils ne sont pas présents, on supprime la donnée dans le document mais cela ne me parait pas une bonne idée.

Comment se fait-il que ton document contienne des champs autres que ceux de ta source est plutôt la question à se poser.

[Invité]

J'avais bien envisagé cette solution mais elle me parait un peu lente à l'exécution (j'ai 2 ou 300 fichiers à générer en une seule exécution).
Il se trouve que les fichiers à générer sont utilisés par un autre programme Access et qu'ils sont quasiment identiques mis à part un ou deux champs, dans certains fichiers, qui doivent disparaitre.
Suis-je vraiment contraint à vérifier la correspondance entre les champs de publipostage et la source de données avant chaque fusion ?

[carden752]

Bonjour,

Non, il est possible de remplacer automatiquement le champ par rien dans le texte si tu sais quels sont les champs qui ne devraient pas être dans ta lettre type.
Autre solution, rajouter dans la source ces champs avec une valeur vide
Pour lister les champs présents dans la lettre type, tu peux utilsier un code comme celui-là.
Tu dois pouvoir les comparer dans une boucle avec un code proche de celui-ci

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
16
17
18
Sub comparer_champs()
Dim DocRes As Document
Dim danssource As Boolean
Dim champlettre As Field
Dim champsource As MailMergeField
Set DocRes = Documents("Liste_champs.doc")
For Each champlettre In ActiveDocument.Fields
If champlettre.Type = wdFieldMergeField Then
danssource = False
For Each champsource In ActiveDocument.MailMerge.Fields
If champsource.Code = champlettre.Code Then danssource = True
Next
If Not danssource Then
Call suppressiondanslettre(champlettre)
End If
End if
Next
End Sub

[Invité]

Merci de votre aide mais j'avais déjà penser à ces solutions.
En fait je balaye tous mes fichiers en les fusionnant, et je voulais juste faire une sorte de gestion des erreurs au cas ou dans un ou deux fichiers il y ait un champ qui n'est pas présent dans la source de données. Je ne sais pas quel champ ni quel fichier risque de poser problème. Mais étant donné le nombre de fichiers à fusionner (largement plus de 300 en fait), je vais lancer la génération de nuit et je voudrais éviter tout message d'erreur pouvant bloquer l'avancée de la génération (tel que "Champ de fusion non valide").
J'ai fait un test en insérant volontairement un champ inconnu dans la source de données. Et j'ai testé l'argument pause de la fonction execute du MailMerge, mais que je mette True ou False, le résultat est le même.

[sambac]

Slt,

J'ai le même prob lors de publipostage, parfois j'ai des champs invalide et sa stop le traitement. Très problématique surtout que mon traitement est automatisé donc sans " intervention " !
j'ai essayé de mettre en place dans un fichier test.docx un code qui ignore les boite d'alerte : Application.DisplayAlerts = wdAlertsNone . Mais rien , j'ai toujours cette boite de dialogue "champ invalide qui s'affiche...
Avez-vous trouver une solution ??

Help please !

[Heureux-oli]

Salut,

Il serait peut-être plus facile de supprimer les champs non valides.

[sambac]

Slt,

Il est clair que supprimé les champs non valide soit la solution, je l'aurais fais depuis longtemps. Sauf que le publipostage se fait par une station bureautique (auto) d’après plusieurs modèle de doc.( environ 300 modèles !). Donc intervenir sur 300 fichiers et chercher les champs invalides...difficiles !