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