Discussion :

[marie75019]

Bonjour

Je souhaite créer un publipostage en mode annuaire.
Cela fonctionne bien : le publipostage génère un document avec tous mes enregistrements qui se suivent les un à la suite des autres.

Cependant, j'aimerai avoir un texte avant l'enregistrement n° 1 et après le dernier enregistrement et que ni l'un ni l'autre ne se répètent.

Y a t'il une solution ?

Merci d'avance de l'intérêt porté à cette question...

[E KERGRESSE]

Bonjour,

Si vos champs vous le permettent, j'essaierais (sans garantie) de créer deux enregistrements dans votre table de telle manière qu'ils se retrouvent en début et en fin de votre liste filtrée (ou non) et en utilisant un des champs pour y mettre le texte.

[marie75019]

C'est en effet une option. Mais elle ne me semble pas très propre surtout que mes données proviennent d'Access (origine requête).

[E KERGRESSE]

[QUOTE=marie75019;11940024]
/QUOTE]

Si cela vous est permis, vous auriez la possibilité d'ajouter ces textes par un code VBA.

[marie75019]

Vous auriez une piste un peu plus préciser ?

Dans Access, j'utilise une fonction décrite dans https://claudeleloup.developpez.com/...cuments-types/
Les données de mon publipostage sont donc dans une table...
Mon fichier word est lié à cette table.

[E KERGRESSE]

Une solution en VBA Word (code associé à votre Normal.dotm) vous permettrait d'insérer du texte dans la partie En-tête (pour ne pas détruire votre mise en page à condition que le texte ne soit pas trop long) et en ajoutant un paragraphe à la fin du document. Si le texte à mettre en premier modifie la mise en page, il vaut mieux insérer un paragraphe en début du document et créer directement un saut de page.

Si vous n'êtes pas familiarisée avec le VBA Word, regardez le tuto d'Olivier LEBEAU https://heureuxoli.developpez.com/office/word/vba-word/.
Si votre outil doit être diffusé à différents utilisateurs, la modification de leur Normal.dotm me paraît toutefois hasardeuse. Il vaudrait mieux dans ce cas, mettre la macro dans un fichier docm qui permettrait de pointer sur le fichier à modifier.

[marie75019]

J'ai trouvé la moitié de la solution.

Pour le début de l'annuaire, je crée une condition Si Alors Sinon.

Code :

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

{IF { MERGEREC } = 1 " Texte avant l'annuaire + Champs de l'annuaire" "Champs de l'annuaire" }

Pour la fin, on pourrait faire la même chose, s'il était possible de connaître le nombre d'enregistrement.

Code :

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

{IF { MERGEREC } = 1 " Texte avant l'annuaire + Champs de l'annuaire" "{IF { MERGEREC } = [dernier n°] " Champs de l'annuaire + Texte après l'annuaire " " Champs de l'annuaire " }" }

Y t'il une solution pour avoir IF { MERGEREC } = [dernier n°] ?

[marie75019]

La solution la plus simple est visiblement d'ajouter une ligne supplémentaire avec un champ identifiable pour faire un if dans le publipostage.
Il n'existe pas dans les fonctions word de publipostage un champ permettant de renvoyer le nombre d'enregistrement du publipostage.
Mais si quelqu'un me trouve cela, je reste encore preneur.

Merci pour les échanges.

[E KERGRESSE]

Bonjour,

VBA vous est permis ?

[marie75019]

Oui
Mais si je comprend l'utilisation de VBA dans access, je n'y connais strictement rien dans Word.

[E KERGRESSE]

.

Le code ci-dessous est dans Excel. La commande GetObject permet d'atteindre la session Word en cours. Selection représente le fichier Word actif (le fichier de publipostage). Le code insert le texte en fin de document.

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
Sub ColleUnTexteDansDocWord()
 
Dim Wdapp As Object
 
    Set Wdapp = GetObject(, "Word.Application")
    With Wdapp.Selection
             .EndKey unit:=wdStory, Extend:=wdMove
             .Paragraphs.Add
             .EndKey unit:=wdStory, Extend:=wdMove
             .Range = "Mon texte"   ' A adapter
    End With
    Set Wdapp = Nothing
 
 
End Sub

Ce code doit être transposable dans Access, mais je n'ai pas essayé.

En paramètre, c'est sans doute mieux :

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
19
20
21
Sub TestColleUnTexteDansDocWord2()
 
    ColleUnTexteDansDocWord2 "Mon texte" ' A adapter
 
End Sub
 
Sub ColleUnTexteDansDocWord2(ByVal MonTexte As String)
 
Dim Wdapp As Object
 
    Set Wdapp = GetObject(, "Word.Application")
    With Wdapp.Selection
             .EndKey unit:=wdStory, Extend:=wdMove
             .Paragraphs.Add
             .EndKey unit:=wdStory, Extend:=wdMove
             .Range = MonTexte
    End With
    Set Wdapp = Nothing
 
 
End Sub