Enregistrer un doc. Word en PDF individuel

Merci mais la question était bien de crée 120 documents PDF distinct. Votre solution ne convient donc pas à cette réponse.

Pour faire des pdf distincts, tu n,aura pas d'autre choix que de le répéter 120 fois, mais
PDF Creator a une option de Enregistrement automatique, une fois le dossier détermine, tu fais seulement "imprimer" et il ne te demande plus ou l'enregistrer ou de donner un nom, ce qui accéléré le processus.

Bonsoir,

Tu remplaces

"C:\Ark\Fiche n°" & I & ".pdf", ExportFormat:= _ 

par

"C:\Ark\Fiche n°" & [A1].value & ".pdf", ExportFormat:= _ 

En remplaçant 'A1' par la cellule qui a le N° de contrat.

Bonjour gbinforme,

Je te remercie de ta réponse. Cependant, elle ne fonctionne pas et je pense savoir pourquoi : il n'y a pas de lien avec Excel dans tout le code.
Le code se fait à partir du publipostage des 500 pages et non d'Excel...
Voici le code :
Sub ExportPDF()

Dim NbPage As Integer
Application.ScreenUpdating = False

NbPage = ActiveDocument.Windows(1).Panes(1).Pages.Count 'Compte le nombre de page dans le document

'Dans cette section, modifier le paramètre "OutputFileName" pour changer le répertoire de sortie.
'Il est important de laisser la variable I dans le nom du fichier pour garder un numéro de chrono.
For i = 1 To NbPage

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"C:\Users\xxx\Desktop\Publipostage\03122015\test\" & i & ".pdf", ExportFormat:= _
wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=i, To:=i, Item:= _
wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
Next

Application.ScreenUpdating = True

MsgBox "Export terminé"

End Sub

Merci d'avance !

Kli

Bonjour,

Au temps pour moi, je n'avais pas bien regardé et intégré le code Word qui est effectivement plus limité.
Essayes de reposer ta question sur ce forum, avec un sujet à toi, qui verra un spécialiste Word te répondre.

c'est fait ! Merci !

Klimero44, quand tu dis "c'est fait" tu parles de ton post du dessus avec toutes les lignes de code? Car ça ne marche toujours pas pour moi et après comparaison, il me semble que tu as exactement collé la même programmation que Syzygy (mis à part le chemin d'accès au dossier où tu vas enregistrer qui change), du coup, sauf erreur de ma part, il n'y a pas plus de lien vers Excel dans tes codes que dans les précédents et donc j'ai des messages d'erreur vu que Word ne trouve pas les champs / données à récupérer pour nommer les fichiers

(pour ma part votre Macro me permet de générer des e-billets dont j'édite et exporte d'abord les codes depuis un logiciel de billetterie, ensuite via le publipostage de Word dans lequel j'ai créé une matrice / un modèle et ajouté un add-on qui sait générer du code-barre, je génère les e-billets que votre macro scinde en autant de pdf. Il faut d'ailleurs que je trouve comment intégrer la fonction de publipostage dans votre macro, en amont de la création des PDF, pour que je n'ai plus qu'un clic à faire pour générer les e-billets).

Et donc concernant le nom des PDF, j'aimerais que soient repris dans mon tableau le nom de mon client et le numéro du billet par exemple, car pour l'instant je sais juste les nommer "1","2","3"... Quelle est la solution du coup?

Merci par avance et bravo ça m'a beaucoup aidé!