Macro POWERPOINT pour enregistrer chaque diapo en PDF

Citation:

Envoyé par Haribolechat

Bonjour,

Testez ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub ImprimerLesSlidesEnPdf()
 
Dim I As Integer
Dim RepertoireDeDestination As String, NomDuFichierPdf As String, NomPresentation As String
 
 
   With ActivePresentation
 
        NomPresentation = Mid(.Name, 1, Len(.Name) - 5)
        RepertoireDeDestination = .Path & "\" & NomPresentation & " " & Format(Now, "yyyy-mm-dd")
 
        For I = 1 To .Slides.Count
            .Slides(I).Select
            NomDuFichierPdf = RepertoireDeDestination & " slide " & Format(I, "00") & ".pdf"
            .ExportAsFixedFormat Path:=NomDuFichierPdf, fixedformattype:=ppFixedFormatTypePDF, RangeType:=ppPrintCurrent
        Next I
 
    End With
 
End Sub