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
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