Add file location of current workbook to obselescence message.
This is to help the user know where a functioning workbook (the one they're currently in) needs to be located to continue working.
This commit is contained in:
parent
2df666a44f
commit
5b1333b8c1
@ -40,7 +40,7 @@ Function makeHttpRequest(method As String, route As String, doc As String, ByRef
|
|||||||
|
|
||||||
' This is a poor man's self-upgrade mechanism for this application.
|
' This is a poor man's self-upgrade mechanism for this application.
|
||||||
If Mid(wr, 1, 24) = "Obsolete client workbook" Then
|
If Mid(wr, 1, 24) = "Obsolete client workbook" Then
|
||||||
If MsgBox("Your workbook is an older version and needs to be upgraded. Download now? This workbook will be closed so your download can overwrite it.", vbYesNo + vbQuestion) = vbYes Then
|
If MsgBox("Your workbook is an older version and needs to be upgraded. Download now? This workbook will be closed so your download can overwrite it. To ease the transition, save the downloaded file in the same location as this one: " & vbCrLf & vbCrLf & ActiveWorkbook.FullName, vbYesNo + vbQuestion) = vbYes Then
|
||||||
ActiveWorkbook.FollowHyperlink server & "/template"
|
ActiveWorkbook.FollowHyperlink server & "/template"
|
||||||
ActiveWorkbook.Close False
|
ActiveWorkbook.Close False
|
||||||
Else
|
Else
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user