Bonjour,

Je voulais savoir si il y a un moyen d'adapter la macro ci jointe à publisher.

Elle fonctionne très bien sous word, cependant pour différentes raisons j'aimerais l'utiliser également sur publisher. Pouvez vous m'aider sur le sujet?

Peut-être que quelques modifications suffirait pour que cela fonctionne, seulement je ne suis pas assez douée pour y arriver seule.

Merci d'avance pour votre aide

Bonne journée à tous
Georgina

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
22
23
24
25
26
27
28
29
30
Application.ScreenUpdating = False
 
'Choix du dossier d'enregistrement des fichiers
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Sélectionnez un dossier où enregistrer vos fichiers"
.Show
If Not (.SelectedItems.Count = 0) Then
Path = .SelectedItems(1)
Else
Exit Sub
End If
End With
 
'Décompte du nombre d'enregistrements dans le publipostage
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord
LastRec = ActiveDocument.MailMerge.DataSource.ActiveRecord
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord
 
'Enregistrement des fichiers
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
For i = 1 To LastRec Step 1
Id = ActiveDocument.MailMerge.DataSource.DataFields(2).Value
ActiveDocument.SaveAs2 Path & "\Fiche Renseignements " & Id & ".pdf", wdFormatPDF
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
Next i
 
MsgBox "L'enregistrement de votre publipostage est terminé." & vbLf & vbLf & LastRec & " fichiers ont été enregistrés dans le dossier : " & Path, vbOKOnly + vbInformation, "Enregistrement du publipostage terminé"
 
Application.ScreenUpdating = True
End Sub