Vba code: Power point to Excel Userform

[Jose11]

Hi

I'm an amateur VBA programmer and I'm struggling to finish some code to make a Powerpoint presentation jump back to an excel spreadsheet.

Private Sub START_Click()


Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open("D:\GONGUES\PROJECTS - Joe info\HAC\HAC.xlsm", True, False)

With Workbooks("D:\GONGUES\PROJECTS - Joe info\HAC\HAC.xlsm")
UserForm3.Show
End With
    

Set xlApp = Nothing
Set xlWorkBook = Nothing

End Sub

Basically, I want to open a userform after I press a button at the end of my presentation in PowerPoint.
If I remove the "with..." part of the code I can get my excel file open, now I just need to get the userform loaded as well... any tips?
Cheers,
Jose

 

[Jaafar Tribak]

One easy thing you can do is to call the UserForm in the workbook open event.

Private Sub Workbook_Open()
    UserForm3.Show
End Sub

So the UserForm is automatically loaded and shown each time the workbook is opend from PowerPoint or otherwise.