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:
PhilRunninger 2024-04-01 17:52:02 -04:00
parent 2df666a44f
commit 5b1333b8c1

View File

@ -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.
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.Close False
Else