Bonjour,
 
J'ai un publipostage Word avec une base de données Excel.
 
Le but est de générer autant de fichier PDF par page Word (en gros 500 pages de publipo à générer en 500 fichiers PDF).
 
Le but est d'envoyer par mail par destinataire un fichier PDF.
 
J'ai repris le code VBA :
 

 
Cela fonctionne à merveille.
 
Seulement, il ressort 1.pdf, 2.pdf, etc....
 
Difficile de retrouver ses petits pour les envois PDF en PJ !
 
L'idée est d'intégrer à la place des chiffres le n°contrat + Nom du client (qu'on retrouve dans la base Excel)  
 
J'ai pensé intégrer les champs "n°contrat et Nom du client" en en-tête de mon publipostage et modifier le code :
 

par

Mais il me mets "erreur"....
 
Je cherche sinon à ce que Word copie mon en-tête de page et "colle".pdf
 
Je galère, je sèche, je m'en arrache les cheveux !
 
Merci d'avance !

Je ne connais pas VBA mais vérifie ceci : l'erreur est t-elle sur l'appel à SelectDocument.Words(2).Select ou sur la valeur renvoyée qui n'est pas un nom de fichier acceptable ?
En séparant la récupération de la valeur et l'affectation tu pourras mieux contrôler ce qui se passe.
 
Tu ne pourrais pas plutôt mettre tes infos dans une des Propriétés du document ou qqch comme ça ? (moins hasardeux qu'aller taper au pif dans l'entête).
 
Dans tous les cas je pense que pour en faire un nom de fichier tu devrais filtrer les caractères qui ne s'y prêtent pas et vérifier un minimum ce qu'il s'apprête à utiliser comme nom...

Bonjour,
 
Je pense que tu n'as pas bien compris le principe du publipostage : Dans ton Word tu ne dois pas avoir autant de pages que de destinataires !!!
 
Le but est justement de remplir le même document (d'une à 2 pages) avec des infos dynamiques issues d'une base (Excel par exemple).
 
Cela se fait directement au sein des champs de fusion de Word et tu n'as nullement besoin de passer par du VBA pour çà.
 
Ou alors le besoin n'est pas le même ...  
 
En tout état de cause, ce n'est pas le  

qu'il faut changer mais bien la partie nommage du document

 
Sauf que pour çà il va te falloir ouvrir le document Excel dans ta macro, aller y lire les informations désirées, les mettre en forme, etc ... Bref tout ce que Word sait faire en automatique via ses fonctions de publipostage !
 
Bon courage !

Bonjour Chelmi18 et Totalrecall,
 
Merci pour vos réponses.
 
En effet, je suis d'accord avec toi Chelmi concernant le publipostage. Mais le besoin n'est pas le même (je pense).
 
Une fois le modèle envoyé, lorsque tu valides ton publipo, Word créé sous le même fichier 500 pages.
L'idée est que la macro crée un pdf par page (et la macro fonctionne très bien pour ça).
Seulement, à la sortie, j'ai "1.pdf", "2.pdf", etc... jusqu'à "500.pdf".
Ensuite, j'envoi mes pdf à chaque destinataire concerné.
 
Pour m'y retrouver, je voudrais modifier les chiffres par "n°contrat et société".
 
En effet, c'est surement le code

 
que je devrais modifier....
 
Je pense que si j'insère les champs sur les courriers a un endroit (en 1ère ligne par exemple), je lance le publipo et ensuite, une fois les 500 pages publiés, je pourrais dire à la macro qu'il nomme les fichiers non pas "1.pdf"... mais "n°contrat société".pdf.
 
Je suis désolé si mes explications paraissent complexes mais ce n'est pas simple a expliquer !
 
Merci d'avance.
 
Klimero

OK, je saisis mieux.
 
Le plus simple serait en effet de passer par un champ de fusion dédié dont tu lirais le contenu dans ta macro.
 
As-tu essayé d'exploiter la piste ActiveDocument.Fields(i).Code.Text où i représente ta page ?
Ou plus largement l'objet Field (champ de fusion) dans un document ?

J'ai essayé plusieurs pistes (à force je ne sais plus trop...)
Cela fait plusieurs semaines que je suis dessus tous les soirs et WE.... :-/
 
en effet, l'idée serait que i="n°contrat nom entreprise"
 
Je continue mes recherches (encore et encore !) lol
 
Merci !

Non, ce ne serait pas i = n° de contrat mais un champ de fusion nommé TOTO dédié sur chaque paqe n° i CONTENANT le n° de contrat.

Par contre, je viens de voir un truc : Après la fusion, les champs ne sont plus accessibles sous leur nom !!!
Le document résultant est un simple document avec du contenu texte classique.
 
Du coup, ca devient compliqué d’accéder à ta donnée n° de contrat après coup !
 
J'en reviens donc à mon idée initiale d'aller directement construire grâce à dans Excel le nom du fichier résultat que tu souhaites à partir du n° de page.
Il te faudra faire le lien entre la ligne Excel à lire et le n° de page de Word.

C'est exactement ce que je me disais !!!
 
Par contre je me demandais :
Si j'insère les champs concernés en haut de la page (caché en police blanche et petite police (par exemple),
est-ce que je peux demander dans ma macro un truc du genre :
i = "prendre les 2 premiers mots de la page"  
 
Ce serait top si ça pouvait être ça... !

Dans ce cas, il va falloir que tu joues avec les objets Page, Sections et Paragraphs, mais je te souhaites bien du courage puisque tous ces objets sont communs à l'ensemble du document.
 
Pour faire simple, tu ne peux pas dire Paragraphs(1) de la Page(25) !  
 
Il va falloir identifier chaque numéro du 1er paragraphe de chaque page par une chaine spécifique par exemple puis faire des Find et/ou Range.Selection ...
 
Bref, ca me parait un peu compliqué ...
 
Je me tournerais plutôt vers une relecture de l'Excel par la macro Word pour aller y chercher l'info que tu désires....

Merci Chelmi18 !
 
Je suis un peu dépité... J'espérais ne pas arriver à autant de complications.....
 
L'idée de la relecture d'Excel n'est pas mauvaise. On fait tellement de publipostage pour les entreprises avec des bases Excel à droite à gauche que je ne peux pas m'amuser à changer le chemin du répertoire d'Excel dans la macro...    
 
Ce que je trouve étonnant c'est que je me dis que je ne suis certainement pas le seul à envoyer des publipostages en PJ !    
 
Lorsque tu parles de "sections", cela sous-entend que je peux mettre mes 2 champs dans une section et faire un truc du genre :
i="section" ?
 
Ca y est... Je me suis arraché mon dernier cheveux ! lol

Garde tes cheveux, on va bien finir par y arriver.

Bon, voilà une ébauche de solution.
 
Attention, celle-ci peut être un peu dangereuse et suppose plusieurs pré-requis indispensables au bon fonctionnement !
 
1. Chaque page doit comporter 1 et 1 seule occurrence du texte "email=" suivi UNIQUEMENT de l'adresse email du destinataire (par exemple "email=toto@serveur.fr" sans espace et sans les guillemets).
Si ce n'est pas le cas libre à toi de modifier ce texte d’identification par une suite de caractères uniques et d'adapter la macro en conséquence (lignes 6 pour le texte et ligne 11 pour la longueur)
 
2. La macro mémorise chaque email dans un tableau correspondant au nombre de pages puis SUPPRIME la ligne en question (passage en one shot donc).
 
Dis-moi ce que tu en pense et n'hésite pas à poser des questions si des lignes ne te semblent pas claires :
 
A ajouter AVANT ta boucle sur le nombre de pages :
 

 
Puis dans ta boucle, avant la sauvegarde en PDF, l'adresse mail est récupérée sous ce nom :

Ta macro me parait canon !
 
J'essaie d'éplucher ton code.
 
Je dois l'insérer dans ma macro actuelle ?
 
Je l'ai lancé mais il continue à me mettre "1.pdf", etc....
 
J'ai sûrement loupé un truc... !

Oui, tu dois la mettre dans ta macro et tu dois adapter ton code existant de sauvegarde.
 
Dans ta ligne 13 ci-dessous

remplacer

par  

Purée ! Je pète un cable !
 
Il me met : "erreur execution 9 "l'indice n'appartient pas à la sélection".
 
Voilà le code
 

 
Désolé Chelmi18 décidemment, tu as affaire à un noob en VBA !

J'ai revu mon document Word en rajoutant email=blabla@bla.fr
 
En executant la macro, il me supprime toute la ligne du mail ! Pas mal ! lol
 
En plus il me met : "erreur d'execution Nom de fichier incorrect" et le fichier Word plante complètement !
 
Grrrrr...... Je vais me pendre et je reviens ! lol

Pour l'erreur "erreur execution 9 "l'indice n'appartient pas à la sélection" c'est sans doute que tu n'as pas une correspondance exacte entre le nombre de pages et le nombre de mails trouvés (trop de l'un ou de l'autre).
Vérifie que le compteur en fin de chargement de tableau (indice z) correspond bien au nombre de page - 1 (puisque le tableau commence à 0 et les pages à 1).
 
Pour la seconde erreur "erreur d'execution Nom de fichier incorrect", tu dois avoir une adresse mail qui contient un caractère interdit pour nommer le fichier. C'est vrai que je n'avais pas pensé à ce cas, mais certains caractères ne peuvent pas être utilisés dans les noms de fichiers Windows.
Il s'agit de :
    < (less than)
    > (greater than)
    : (colon)
    " (double quote)
    / (forward slash)
    \ (backslash)
    | (vertical bar or pipe)
    ? (question mark)
    * (asterisk)
 
Si tu as ce type de caractère dans les adresses mails, il va falloir les gérer par un Replace.
 
Dans la partie où tu alimentes le tableau (entre les lignes 16 et 17) ajoutes une instruction par caractère interdit : par exemple listeMails(z) = Replace(listeMails(z), "<", "" ) pour remplacer le caractère par "rien" (deux " accolées).
Tu également le remplacer par un autre caractère comme "-" ou " ".
Ça va donner quelque chose comme ça :
 

... etc... pour chacun des caractères interdits jusqu'à

 
Sinon, il va falloir passer au débogage pas à pas en affichant les variables locales pour suivre l'exécution du code ...

Salut, @klimero44 : va voir une possibilité de réponse sur ton post initial

Merci Chelmi18 pour tes codes supplémentaires. Je vais étudier ça à tête reposée... !
 
Salut Kiki, Quel post initial (j'avoue, j'en ai posté pas mal pour ce sujet.. ! )?

re, ici : http://www.developpez.net/forums/d [...] ost8465531

Oui, merci Kiki !
 
En effet, j'avais prévu de te répondre justement !
 
Au fait, par rapport au résultat souhaité, ce n'est pas tout à fait ce que j'espérais ! lol
 
J'ai tenté ton code, mais je ne voudrais pas que mon fichier retourne sur Excel puisque mon publipo lancé, il n'y a pas de lien avec la base d'Excel.
 
Mais merci Kiki ! :-)

Hey !
 
J'ai peut-être trouvé un truc tout bête pour mon histoire de code !
 

 
que j'ai chopé ici : http://www.faqword.com/index.php/w [...] un-fichier
 
Si j'arrive à combiner ce code pour ma macro.... Je pourrais peut-être arriver à dormir et récupérer mes cheveux ?

Bon, j'ai réussi à travailler un peu sur le code... J'ai trouvé un bout du problème.
 
Mais il me créé la dernière page de mon fichier qui fait 500 pages et le nom du pdf se nomme le 1er mot de la 1ère page...
 
Voilà le code :
 
Sub ExportPDF()
    Dim NbPage As Integer
    Application.ScreenUpdating = False
    NbPage = ActiveDocument.Windows(1).Panes(1).Pages.Count
    nom = ActiveDocument.Paragraphs(1).Range.Words(1)
    For i = 1 To NbPage
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
    "C:\Users\xxx\Desktop\pj\" & nom & ".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 vais bien y arriver bon sang !

Ok pour moi c'est terminé, le jour où tu sauras ce que tu veux.

Désolé Kiki ! Ce n'était pas le but !
Tu m'as beaucoup aidé ! Je t'en remercie infiniment !
Je me suis rendu compte que l'on s'est écarté de mon problème de départ. Mon soucis vient de Word et non d'Excel
Mais je conserve tes macros ! J'en aurais sûrement besoin prochainement quand mon patron va me tomber dessus... !
Merci encore Kiki29  

 
C'est normal, Word ne sait pas gérer le contexte de "Pages" au sens où nous le voyons, ce ne sont que des paramètres de mise en page.
Les objets manipulables par Word sont les Sections, les Paragraphs etc ...
 
Donc Paragraphs(1) est le tout 1er de l'ensemble du document. C'est ce que je te disais un peu plus tôt, dans mon post du 08-12-2015 à 16:05:08 :
 

 
Si tu veux en savoir plus, un peu de lecture très instructive (en anglais) : http://shaunakelly.com/word/word-d [...] model.html

Ah... J'espérais pouvoir échapper à ces codes...
Je m'y replonge.. !
 
Merci Chemi18 !

Bon... Je m'y replonge...
 
Ta page est en effet très instructive ! Je suis en train de l'éplucher depuis tout à l'heure...
J'avoue, je suis nul en anglais et nul en VBA ! lol !
 
Bon... Mais je m'accroche....
J'en ai un peu marre de passer mes soirées et WE sur ce code...
 
Pour le moment je fais mes essais sur 3 pages de publipo. C'est mieux que 500 ! lol
 
Alors je pensais à un code du genre :
 

 
La différence entre ces 3 codes est juste "pages(x)" qui change.
 
L'idée est qu'il aille chercher le 1er mot de chaque page et qu'il en fasse un pdf.
 
Allez courage !!

Pourquoi tu cherches encore une solution détournée ?
 
Mon code donné plus haut (le 09-12-2015 à 09:50:07) ne fonctionne pas ?

Bonsoir,
Je ne cherche pas une solution détournée Chelmi. Je ne voulais pas t'embéter encore plus.
En effet, lorsque j'ai collé ton code et appuyé sur "lecture", voila le message :
Erreur d'execution '-2147467259 (80004005)' : Nom de fichier incorrect
En cliquant sur débogage, il me met en surbrillance :
 

 
De plus, comme prévu il me shoot l'adresse mail dans Word et Word plante complètement...
Je n'ai pas de caractère interdit. J'ai juste pris des adresses mails "bidons" (ex : dupont@dupont.fr)
 
Du coup, en continuant mes recherches sur le net, j'ai trouvé d'autres codes mais aussi sans résultat...

J'ai pensé que "@" est un caractère interdit alors, j'ai refais des tests avec comme adresse mails : 123456 (les n°contrats)
Ce refait pareil. Ca rebeug... :-\

Non, le @ est bien autorisé.
 
Mais que contient listeMails(i-1) quand ca plante ? Combien vaut i ? Et combien de pages as-tu ?
 
Commence peut-être par afficher ce que tu as mémorisé dans la liste listeMails et vérifie que ca colle avec ce que tu attends en nombre et en contenu.