Discussion :

[Haribolechat]

Bonjour,
Avez-vous déjà créé une macro qui enregistrerait chaque diapositive de Powerpoint dans des fichiers PDF séparés?
J'en ai trouvé pour Word et Excel mais pas pour Powerpoint....
Merci de votre aide !

[Invité]

Bonjour,

Testez ce code :

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
 
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