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
Partager