Discussion :

[Mathsdeb]

Bonsoir à tous,

Je voudrais convertir des documents issus d'un publipostage au format pdf avec comme nom pour chaque document l'adresse mail des bénéficiaires puisque chaque document est différent : Exemple

anais@kjh.fr.PDF

Est ce que quelqu'un peut m'aider svp?

Merci par avance

[Heureux-oli]

Salut,

Une piste là : http://heureuxoli.developpez.com/off.../publipostage/

[Mathsdeb]

Heureux-Oli,

J'ai bien le code ci-dessous pour tout scinder au format .doc mais comment avoir la même chose mais au format .pdf stp?

Est ce qu'il suffit de changer l'extension .doc en .pdf?

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
31
32
33
34
35
36
37
38
Sub TestPublipost()
' Déclaration des variables
Dim iR As Integer
Dim i As Integer
Dim oDoc As Document
Dim DocName As String
Dim oDS As MailMergeDataSource
 
' Affectation des objets
Set oDoc = ActiveDocument
Set oDS = oDoc.MailMerge.DataSource
 
iR = oDoc.MailMerge.DataSource.RecordCount
Debug.Print iR
For i = 1 To iR
    With oDoc.MailMerge
        'Définition du premier et dernier enregistrement
        .DataSource.FirstRecord = i
 
        .DataSource.LastRecord = i
        ' Envoi des données dans un nouveau document
        .Destination = wdSendToNewDocument
        ' Exécution du publipostage
        .Execute
        ' Actualisation de l'enregistrement pour la sauvegarde
        .DataSource.ActiveRecord = i
        'Utilisation de deux champs pour obtenir le nom du document
        DocName = .DataSource.DataFields(2).Value
        DocName = DocName & "-" & .DataSource.DataFields(3).Value
        Debug.Print DocName; i
    End With
    ' Sauvegarde du document publiposté
    With ActiveDocument
        .SaveAs "c:\temp\" & DocName & ".doc"
        .Close
    End With
Next i
End Sub

Merci par avance pour ta réponse

[Heureux-oli]

Salut,

Dans le SaveAs, il faut changer le format de sortie.

[clementmarcotte]

Bonjour,

Pour ce genre de choses, Word et Excel, te fournissent chacun une sorte de baguette magique, un enregistreur de macros.

Sur Word 2010, le mien m'a donné ceci, que l'on peut (doit ? devrait ? ) bien sur élaguer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro25()
'
' Macro25 Macro
'
'
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\Clément Marcotte\Documents\Article 1931 du Code civil du Québec.pdf" _
        , ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
End Sub

En reprenant ta question, et en faisant un peu de ménage, tu devrais avoir quelque chose ressemblant à cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 With ActiveDocument
        .ExportAsFixedFormat OutputFileName:= _
        "c:\temp\" & DocName & ".pdf" _
        , ExportFormat:=wdExportFormatPDF
         .Close
    End With

Je te laisse le soin d'expérimenter avec les autres options, su le cœur t'en dit.

[Mathsdeb]

Merci pour votre réponse

En naviguant par hasard sur mon PC du boulot , j'ai remarqué que j'avais PDFMaker.

Mais ce que je comprends pas c'est que lorsque je clique sur l'icône :



Il ne se passe rien du tout, alors qu'il devrait m'ouvrir sur une fenêtre comme le montre cette vidéo youtube en anglais :

https://m.youtube.com/watch?v=is87NFAlex0

Du coup, je ne sais pas où ça bloque....

Peut être que quelqu'un peut m'aider?

Merci par avance