Publipostage Word avec un pdf en pièce jointe [Résolu]

m@rina, ton lien est down....

le bon lien :
http://faqword.com/...

génial!! merci beaucoup!! votre lien m'a sauvé ce matin :-)

Voila 10 ans que je cherchais une solution !!!
Je le faisais sans problème sous outlook 2000, puis au passage de la version 2003, ils avaient tout verrouillé ! Et je n'avais jamais réussi à contourner le problème.
Vraiment Merci beaucoup, cette macro est au top !!! ET MERCI OLIV' pour la transmission de l'info

Je dois dire que depuis que j'ai mis cette macro en lignes, il n'y a que des personnes ravies... Malheureusement Oliv' a disparu de la circulation et cette macro a besoin d'amélioration. L'amélioration a été faite par une autre personne, mais il faut vraiment que je rédige l'aide avant de la mettre en ligne...

m@rina

le lien ne comporte aucune instruction, juste des liens commerciaux...est-ce normal?

Bonjour Isa
deux posts plus bas, tu as le bon lien http://www.commentcamarche.net/...

Moi aussi cela faisait longtemps que je cherchais une solution pour envoyer des pièces jointes lors d'un publipostage. Merci pour la macro Outlook, ça marche nickel.

Bonjour,


J'ai utilisé la méthode imaginée par Oliv', néanmoins je rencontre une difficulté à un moment donné.

Je ne parviens pas à passer l'étape de la recherche de mon document, une box m'indique "fin" sans que je puisse prendre ma PJ. Pouvez-vous me présenter la ligne de code que vous obtenez dans votre module pour que je puisse me calquer dessus et résoudre mon problème.

Pour info mon module ressemble à ceci :

Sub setPublipostage()
On Error Resume Next
If publipostagePJ(0) = "" Then publipostagePJ = Array("fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin")
While publipostagePJ(i) <> "fin"
contenu = contenu & vbCr & publipostagePJ(i)
i = i + 1
Wend
If contenu = "" Then contenu = "vide"
modifier = MsgBox(contenu & vbCr & "Voulez vous choisir un fichier à joindre ?", vbYesNo, "Fichiers paramétrés")
If modifier = vbYes Then
For i = 0 To 9
If i > 0 Then encore = MsgBox("un autre ?", vbYesNo)
quest:
If encore <> vbNo Then
PJ = InputBox("Emplacement du fichier joint au PUBLIPOSTAGE?", _
"Paramétrage du PUBLIPOSTAGE pour la session", publipostagePJ(i))
If "" = Dir(PJ, vbNormal) Then GoTo quest
publipostagePJ(i) = PJ
Else: Exit For
End If
Next i
End If
MsgBox "Votre publipostage doit comporter le terme :" & vbCr & _
"PUBLIPOSTAGE" & vbCr & "dans le sujet." & vbCr & _
"Celui-ci sera retiré lors de l'envoi"
End Sub


Par avance, merci.

Bonsoir,

Le mail faqword que j'ai utilisé début aout a super bien marché et la il ne marche plus.
Je suis assez embeté.
J'ai les codes des macros, mais ca ne veut plus s'activer...

Please help..

Merci.

Après de multiples recherches ,je n'ai trouvé qu'une seule solution pour publiposter automatiquement avec le document word mis en pièce jointe pdf, c'esst PDF MAKER
mais il est intégré à Adobe Acrobat (qui insère un module dans Office), c'est donc pas donné !