Enregistrer un doc. Word en PDF individuel [Fermé]

Signaler
-
Messages postés
10
Date d'inscription
jeudi 10 novembre 2016
Statut
Membre
Dernière intervention
6 septembre 2017
-
Bonjour,

J'aimerais enregistrer un document Word (2010) de 120 pages en un document PDF par page. Donc, 120 documents PDF.

Je sais qu'il est possible d'enregistrer via Word mon document en PDF et de sélectionner une seule page, mais la procédure est assez longue à faire et il faudrait que je la refasse encore et encore pour un total de 120 fois!

S'il vous plait, dites moi qu'il existe un programme qui peu enregistre un document Word en plusieurs fichiers PDF!

Merci en avance!

5 réponses

Messages postés
16132
Date d'inscription
samedi 10 juillet 2010
Statut
Membre
Dernière intervention
22 février 2021
4 853
Oui, il y a bien une solution, mais helas.. payante..

Cela peut se faire avec Acrobat "Professionnel"

Apres avoir fait un PDF complet du document :
Dans le menu "Document/extraire des pages" il faut donner la sequence (de 1 a 120) et cocher la case "extraire les pages sous forme de fichiers distincts".

Il y a une version d'evaluation sur le site d'Adobe
https://acrobat.adobe.com/fr/fr/free-trial-download.html
Mais je ne connais pas les limitations....
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

Merci je vais essayer ça et je vous en redonne des nouvelles!
Je n'arrive pas à trouver le menu Document/Extraire des pages ... pourrais tu me donner un peu plus d'indication s'il vous plait?
Messages postés
378
Date d'inscription
vendredi 29 avril 2011
Statut
Membre
Dernière intervention
31 décembre 2011
121
Bonjour,

Une autre solution consisterait à passer par une macro. Vous pouvez essayer la solution suivante :

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:\Ark\Fiche n°" & 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

Je l'ai testé avec 5 pages et j'ai bien 5 fiches différentes

Bonne journée,

Salut,
Utilise PDF Créator.

Installe le comme un logiciel normal,
Une fois installé, ouvre ton document Word,
Fichier,
Imprimer,
Sélectionne PDF Créator,
OK.

Ton document Word de 120 pages sera transformé en PDF entièrement.
Merci mais la question était bien de crée 120 documents PDF distinct. Votre solution ne convient donc pas à cette réponse.
Messages postés
1946
Date d'inscription
jeudi 10 janvier 2008
Statut
Membre
Dernière intervention
5 décembre 2015
332
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.
Messages postés
1946
Date d'inscription
jeudi 10 janvier 2008
Statut
Membre
Dernière intervention
5 décembre 2015
332
Bonjour,
pdf creator, peut être, je n'ai jamais fais 120 pages, mais une dixaine et ça fonctionnait très bien.
pdf creator est très bien pour crée des pdf a partir de n'importe quoi, le logiciel agit comme une imprimante, une fois installé, tu fais imprimer et tu choisi pdf creator et se mets a l'oeuvre, tu peux meme le proteger par mot de passe interdire l'impression , copie etc.
Messages postés
15
Date d'inscription
jeudi 3 décembre 2015
Statut
Membre
Dernière intervention
4 janvier 2017

Bonsoir tout le monde,

Déjà, je suis désolé de ressortir un vieux topic, mais j'avoue, je n'ai pas trouvé meilleur code vba qu'ici !
Voilà, j'explique mon problème :
Je dois faire un publipostage avec une base de données sous Excel (Société, adresse, n° de contrat, etc...)
Je lance le publipostage via Word et mes 500 courriers tombent.
L'idée est d'envoyer par mail aux 500 destinataires leurs fichiers pdf.

Grâce à ton code VBA Syzygy, j'arrive à scindéer en 500 fichiers PDF et il me reste plus qu'à les envoyer par mail (je précise que j'utilise zimbra donc je suis un peu limité question publipostage.... ce n'est pas moi qui décide mais mon taf...)

Seulement, me retrouver avec 500 fichiers pdf intitulé de 1.pdf, 2.pdf, jusqu'à 500, difficile de retouver mes petits !

Ma question est : "au lieu d'intituler les fichiers 1.pdf, etc.... peut-on les intituler par N° de contrat ?"

Merci d'avance !

Bonne soirée à tous.

Kli
Messages postés
15
Date d'inscription
jeudi 3 décembre 2015
Statut
Membre
Dernière intervention
4 janvier 2017

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
Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 349
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.
Messages postés
15
Date d'inscription
jeudi 3 décembre 2015
Statut
Membre
Dernière intervention
4 janvier 2017

c'est fait ! Merci !
Messages postés
10
Date d'inscription
jeudi 10 novembre 2016
Statut
Membre
Dernière intervention
6 septembre 2017

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é!
Messages postés
10
Date d'inscription
jeudi 10 novembre 2016
Statut
Membre
Dernière intervention
6 septembre 2017

En fait sur une autre page du Forum (autre sujet) Amenesh délivre une macro pour nommer les fichiers en reprenant des champs de fusion. A ce que je vois, dans la programmation il utilise des noms de champs "nom" ... pour nommer le fichier, et juste avant il définit genre nom= .... (et là le codage de comment et où aller chercher l'info):

Sub Macro()
'
'définit "nom" en fonction de la valeur du champ de la 2ème colonne du tableau excel
nom = ActiveDocument.MailMerge.DataSource.DataFields(2).Value
idem pour "prénom" en fonction de la valeur de la colonne n°3
prénom = ActiveDocument.MailMerge.DataSource.DataFields(3).Value
idem pour "prénom" en fonction de la valeur de la colonne n°6
consultation_du = ActiveDocument.MailMerge.DataSource.DataFields(6).Value

ChangeFileOpenDirectory "R:\CONSULTATIONS EN ATTENTE DE CORRECTION"
ActiveDocument.SaveAs FileName:=nom & " " & prénom & " " & consultation_du & ".doc", FileFormat:=wdFormatDocument

End Sub

Il doit donc falloir intégrer ceci dans la macro qui génère les pdf uniques

SOURCE: https://forums.commentcamarche.net/forum/affich-14804586-enregistrement-auto-publipostage-nom-champ#p34081407