I am making a program that will open a quote and put it into a directory. If
information from the quote is allready in the directory, the program compares
the date that is given in the quote. In some cases the date is the same but
the modifyied date is the same. I am using the code shown below, however if
the sheet is open the last modifyied date becomes todays date. I changed the
program so that it closes the sheet without saveing and the problem is fixed.
Is it possible to keep the sheet open and return the last modifyied date?
If not, is there a way to reopen the last file that was closed with ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the database is
older than the one the user is trying to incert, replace the file in the
database.

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
I am making a program that will open a quote and put it into a directory.
If
information from the quote is allready in the directory, the program
compares
the date that is given in the quote. In some cases the date is the same
but
the modifyied date is the same. I am using the code shown below, however
if
the sheet is open the last modifyied date becomes todays date. I changed
the
program so that it closes the sheet without saveing and the problem is
fixed.
Is it possible to keep the sheet open and return the last modifyied date?
If not, is there a way to reopen the last file that was closed with ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the database
is
older than the one the user is trying to incert, replace the file in the
database.

If I save it, the new modified date will be today. My goal is to compare two
files that have the same name and similar properties. I would like to keep
the file that has the most recent modified date. Is there a way to return
the last modified date without closing either file?
"Bob Phillips" wrote:

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
I am making a program that will open a quote and put it into a directory.
If
information from the quote is allready in the directory, the program
compares
the date that is given in the quote. In some cases the date is the same
but
the modifyied date is the same. I am using the code shown below, however
if
the sheet is open the last modifyied date becomes todays date. I changed
the
program so that it closes the sheet without saveing and the problem is
fixed.
Is it possible to keep the sheet open and return the last modifyied date?
If not, is there a way to reopen the last file that was closed with ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the database
is
older than the one the user is trying to incert, replace the file in the
database.

Not sure I get what you want, but maybe this will help


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
If I save it, the new modified date will be today. My goal is to compare
two
files that have the same name and similar properties. I would like to
keep
the file that has the most recent modified date. Is there a way to return
the last modified date without closing either file?
"Bob Phillips" wrote:

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"
wrote
in message ...
I am making a program that will open a quote and put it into a
directory.
If
information from the quote is allready in the directory, the program
compares
the date that is given in the quote. In some cases the date is the
same
but
the modifyied date is the same. I am using the code shown below,
however
if
the sheet is open the last modifyied date becomes todays date. I
changed
the
program so that it closes the sheet without saveing and the problem is
fixed.
Is it possible to keep the sheet open and return the last modifyied d
ate?
If not, is there a way to reopen the last file that was closed with
ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the
database
is
older than the one the user is trying to incert, replace the file in
the
database.

I apologize, I was too vague with my description. Disregarding everything
that I said before, is it possible to make a macro that will tell the user
the last modified date of the excel file that they are looking at? I also
have another question, how can I program around someone closing an input box?
(See code)

UserName = InputBox("Please insert your full user name")
If UserName = False Then €˜If someone closes the input box or hits cancel
restart
End If

"Bob Phillips" wrote:

Not sure I get what you want, but maybe this will help


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
If I save it, the new modified date will be today. My goal is to compare
two
files that have the same name and similar properties. I would like to
keep
the file that has the most recent modified date. Is there a way to return
the last modified date without closing either file?
"Bob Phillips" wrote:

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"
wrote
in message ...
I am making a program that will open a quote and put it into a
directory.
If
information from the quote is allready in the directory, the program
compares
the date that is given in the quote. In some cases the date is the
same
but
the modifyied date is the same. I am using the code shown below,
however
if
the sheet is open the last modifyied date becomes todays date. I
changed
the
program so that it closes the sheet without saveing and the problem is
fixed.
Is it possible to keep the sheet open and return the last modifyied d
ate?
If not, is there a way to reopen the last file that was closed with
ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the
database
is
older than the one the user is trying to incert, replace the file in
the
database.

The UDF I provide previously will give you the last modified date of the
current file, just use as described.

On the other point

Do
UserName = InputBox("Please insert your full user name")
If UserName = False Then
MsgBox "Supply a name"
End If
Loop Until UserName < False

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
I apologize, I was too vague with my description. Disregarding everything
that I said before, is it possible to make a macro that will tell the user
the last modified date of the excel file that they are looking at? I also
have another question, how can I program around someone closing an input
box?
(See code)

UserName = InputBox("Please insert your full user name")
If UserName = False Then 'If someone closes the input box or hits cancel
restart
End If

"Bob Phillips" wrote:

Not sure I get what you want, but maybe this will help


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"
wrote
in message ...
If I save it, the new modified date will be today. My goal is to
compare
two
files that have the same name and similar properties. I would like to
keep
the file that has the most recent modified date. Is there a way to
return
the last modified date without closing either file?
"Bob Phillips" wrote:

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"

wrote
in message
...
I am making a program that will open a quote and put it into a
directory.
If
information from the quote is allready in the directory, the
program
compares
the date that is given in the quote. In some cases the date is
the
same
but
the modifyied date is the same. I am using the code shown below,
however
if
the sheet is open the last modifyied date becomes todays date. I
changed
the
program so that it closes the sheet without saveing and the
problem is
fixed.
Is it possible to keep the sheet open and return the last
modifyied d
ate?
If not, is there a way to reopen the last file that was closed
with
ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different
quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the
database
is
older than the one the user is trying to incert, replace the file
in
the
database.

I tried this code, when I hit cancel or the close button it just closes the
input box. Is there something that I am doing wrong?

"Bob Phillips" wrote:

The UDF I provide previously will give you the last modified date of the
current file, just use as described.

On the other point

Do
UserName = InputBox("Please insert your full user name")
If UserName = False Then
MsgBox "Supply a name"
End If
Loop Until UserName < False

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
I apologize, I was too vague with my description. Disregarding everything
that I said before, is it possible to make a macro that will tell the user
the last modified date of the excel file that they are looking at? I also
have another question, how can I program around someone closing an input
box?
(See code)

UserName = InputBox("Please insert your full user name")
If UserName = False Then 'If someone closes the input box or hits cancel
restart
End If

"Bob Phillips" wrote:

Not sure I get what you want, but maybe this will help


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"
wrote
in message ...
If I save it, the new modified date will be today. My goal is to
compare
two
files that have the same name and similar properties. I would like to
keep
the file that has the most recent modified date. Is there a way to
return
the last modified date without closing either file?
"Bob Phillips" wrote:

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"

wrote
in message
...
I am making a program that will open a quote and put it into a
directory.
If
information from the quote is allready in the directory, the
program
compares
the date that is given in the quote. In some cases the date is
the
same
but
the modifyied date is the same. I am using the code shown below,
however
if
the sheet is open the last modifyied date becomes todays date. I
changed
the
program so that it closes the sheet without saveing and the
problem is
fixed.
Is it possible to keep the sheet open and return the last
modifyied d
ate?
If not, is there a way to reopen the last file that was closed
with
ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects different
quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in the
database
is
older than the one the user is trying to incert, replace the file
in
the
database.

Sorry, I continued your logic errir

Dim UserName
Do
UserName = InputBox("Please insert your full user name")
If UserName = "" Then
MsgBox "Supply a name"
End If
Loop Until UserName < ""


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress" wrote
in message ...
I tried this code, when I hit cancel or the close button it just closes
the
input box. Is there something that I am doing wrong?

"Bob Phillips" wrote:

The UDF I provide previously will give you the last modified date of the
current file, just use as described.

On the other point

Do
UserName = InputBox("Please insert your full user name")
If UserName = False Then
MsgBox "Supply a name"
End If
Loop Until UserName < False

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"
wrote
in message ...
I apologize, I was too vague with my description. Disregarding
everything
that I said before, is it possible to make a macro that will tell the
user
the last modified date of the excel file that they are looking at? I
also
have another question, how can I program around someone closing an
input
box?
(See code)

UserName = InputBox("Please insert your full user name")
If UserName = False Then 'If someone closes the input box or hits
cancel
restart
End If

"Bob Phillips" wrote:

Not sure I get what you want, but maybe this will help


'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Elceller in distress"

wrote
in message
...
If I save it, the new modified date will be today. My goal is to
compare
two
files that have the same name and similar properties. I would
like to
keep
the file that has the most recent modified date. Is there a way
to
return
the last modified date without closing either file?
"Bob Phillips" wrote:

Why not just save it rather than close it?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing
direct)

"Elceller in distress"

wrote
in message
...
I am making a program that will open a quote and put it into a
directory.
If
information from the quote is allready in the directory, the
program
compares
the date that is given in the quote. In some cases the date
is
the
same
but
the modifyied date is the same. I am using the code shown
below,
however
if
the sheet is open the last modifyied date becomes todays date.
I
changed
the
program so that it closes the sheet without saveing and the
problem is
fixed.
Is it possible to keep the sheet open and return the last
modifyied d
ate?
If not, is there a way to reopen the last file that was closed
with
ease?

StrFileLocalDirectory = "C:\..."
strFileName = "Quote 1" ' Changes as the user selects
different
quotes
test1 = FileDateTime(StrFileLocalDirectory & strFileName)
test2 = FileDateTime(StrFileDatabaseDirectory & strFileName)
If test1 test2 Then ' If the modifyied date of the file in
the
database
is
older than the one the user is trying to incert, replace the
file
in
the
database.