.XLT with user programming not working through Intranet.

S

Steve Roberts

I have .XLT file with a sheet that I have placed a button on that saves the
file with a specific name and folder location.
In a stand alone setting on our network drive it works fine.
If I point to it through the our intranet using the same mapped drive, it
does nothing when I click the button.
I assume the problem is because it is opening inside IE but I have very
little experience with web stuff so I have no idea how to troubleshoot this.

Here is the code that gets executed when I click the Save And Exit Button

Private Sub btnSaveAndExit_Click()

Dim DT As Date
Dim strProjectDescription As String
Dim strProjectNumber As String
Dim strProjectFolder As String
Dim strInitials As String
Dim strDate As String

DT = Date

strDate = Format(DT, "dd-mmm-yy")
strProjectDescription = Range("c15")
strProjectNumber = Range("H5")
strProjectFolder = Replace(UCase(strProjectNumber), ".S.", "_")
strInitials = GetInitials()

ActiveWorkbook.Close SaveChanges:=True, Filename:="G:\Projects\" &
strProjectFolder & "\wp\PS" & strProjectFolder & "_" & strDate & "_" &
strInitials & ".xls"

End Sub

Any Ideas?

Thanks

Steve
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top