Make PowerPoint macro SaveAs overwrite without warning popup

filido

New Member
Joined
Jun 7, 2019
Messages
21
Hi,

is it possible to write a code to Excel VBA that saves a PowerPoint presentation to SharePoint with a dynamic name (changes according to a specific cell value) and overwrites the existing file, if there is one? This is my code now, and it doesn't work.

Application.DisplayAlerts = False

Dim path, newfname, frmt As String
path = "https:\\docs.webpage.com\sites\sales" '<-- the folder
newfname = wsdata.Range("L3") '<-- cell that the file name comes from
frmt = VBA.Right(ppt_pres.Name, 4) '<-- i think this is the fileformat pptx

If newfname <> False Then

If Not Dir(newfname) <> "" Then
ppt_pres.SaveAs Filename:=newfname
Else
On Error Resume Next

If Err.Number = 1004 Then
On Error GoTo 0
Else
ppt_pres.SaveAs Filename:=mypath & newfname & frmt & ".pptx", _
FileFormat:=ppSaveAsOpenXMLPresentation, _

End If
End If
End If

Application.DisplayAlerts = True
 

Some videos you may like

Excel Facts

Bring active cell back into view
Start at A1 and select to A9999 while writing a formula, you can't see A1 anymore. Press Ctrl+Backspace to bring active cell into view.

pbornemeier

Well-known Member
Joined
May 24, 2005
Messages
3,848
Application.DisplayAlerts = False
should suppress the warning.

Perhaps use
Code:
On Error Resume Next
KILL mypath & newfname & frmt & ".pptx"
On Error GoTo 0
just prior to the save statement
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,032
Messages
5,508,910
Members
408,700
Latest member
casco

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top