J'ai créer un document avec publipostage me permettant d'obtenir une extraction d'un fichier Excel très facilement.
J'aimerais cependant générer un document par enregistrement (soit par ligne de mon export Excel). Pour cela j'ai récupérer sur un forum la macro suivante :
Sub Publipostage()
'
Application.ScreenUpdating = False
Dim SousDoc As Document
Dim chemin As String
Dim R As Range
Dim x, DocNum
For x = 1 To ActiveDocument.Sections.Count - 1
Set R = ActiveDocument.Sections(x).Range: R.End = R.End - 1
R.Copy
'Mettez le chemin complet et le nom du modèle
Documents.Add Template:="C:\Documents\TRAME_RI_vierge.doc"
Selection.Paste
DocNum = DocNum + 1
'Mettez ici le nom complet du dossier où vous souhaitez récupérer les documents
chemin = "C:\Documents\Rapports\"
With ActiveDocument
.SaveAs FileName:=chemin & DocNum & ".docx"
.Close
End With
Next x
Set SousDoc = Nothing
Set R = Nothing
Application.ScreenUpdating = True
End Sub
Elle marche très bien, cependant j'aimerais que les titres de chacun des documents correspondent à un des champs de fusion exporté par le publipostage.
Ce champs se trouve dans la cellule du premier tableau de chacun des document, en 1ère colonne et 2ème ligne. C'est un texte du type "abc-def-1234-5678 - 90/ghi/1234 - jkl-mno-pqr"
Comment pourrais-je procéder ? Une fois le publipostage fait, je sais que je ne peux plus récupérer de champ de fusion, mais j'aimerais plutôt récupérer un texte précis de mon document pour pouvoir l'ajouter au titre de mon document (et ce pour chaque document généré).
