VBA PPT Nom

Bonjour, j'aimerais créer un PPT et au lieu de s'appeler "Presentation" j'aimerais qu'il ait un nom particulier "2017_07_25_Interventions" et l'enregistrer sur le Bureau. J'ai commencé un code mais celui ci ne fonctionne pas

Sub PPT()

    Dim PptApp As PowerPoint.Application
    Dim PptDoc As PowerPoint.Presentation
    Dim Diapo1 As PowerPoint.Slide

    Set PptApp = CreateObject("Powerpoint.Application")
    Set PptDoc = PptApp.Presentations.Add

    With PptDoc

        Set Diapo1 = .Slides.Add(Index:=1, Layout:=ppLayoutBlank)
        .PageSetup.SlideWidth = Application.CentimetersToPoints(25.4)
        .PageSetup.SlideHeight = Application.CentimetersToPoints(14.29)
        w = .PageSetup.SlideWidth
        h = .PageSetup.SlideHeight

    End With

    PptDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & "NouvellePresentation.ppt"

End Sub

Bonjour,

à tester,

PptDoc.SaveAs FileName:=ThisWorkbook.Path & "\" & Date & "_Interventions.pptx", FileFormat:=ppSaveAsDefault

Erreur d'exécution

Présentation (unknown member) : Object does not exist

oups désolé, j'oubliais PptApp

PptApp.PptDoc.SaveAs FileName:=ThisWorkbook.Path & "\" & Date & "_Interventions.pptx", FileFormat:=ppSaveAsDefault
Rechercher des sujets similaires à "vba ppt nom"