Save a PowerPoint presentation

Hello everyone,

With Excel I would like to save a power point presentation. The code I'm using is attached.

I can open the presentation but the code "presentation.save" doesn't work I don't understand why

Do you have any ideas ?

Thank you very much for your help

Clemence

Hello,

Please find attached an example to test

Public Sub SavePres()

    Dim Opath As String
    Dim Fpath As String
    Dim pptApp As PowerPoint.Application
    Dim oPres As PowerPoint.Presentation

    Opath = Range("C2").Value
    Fpath = Range("C3").Value

    Set pptApp = New PowerPoint.Application
    Set oPres = pptApp.Presentations.Open(Opath)

    pptApp.Visible = True

    oPres.SaveAs Fpath
    oPres.Close

    Set oPres = Nothing

    pptApp.Quit
    Set pptApp = Nothing

End Sub

Bouben

Thank you very much it is working !!!!!

Have a nice evening