Create sequential file name for uploaded template

I have an Excel template that I would like to put on our intranet. I want it
to create a unique, sequential file name each time it is uploaded, as well as
put that unique number in a cell within the template. For example, I want the
numbering to start with 1001. When someone uploads the file, the file name
will be 1001.xls and the document number cell will be 1001. The next person
that uploads the file will be 1002.xls.

How is it being uploaded? Do you have a routine which saves the file to a
specific location?
Is there only one copy or does >1 copy exist?

--
Tim Williams
Palo Alto, CA


"Lisa Alex" <Lisa [email protected]> wrote in message
news:[email protected]...
> I have an Excel template that I would like to put on our intranet. I want
it
> to create a unique, sequential file name each time it is uploaded, as well
as
> put that unique number in a cell within the template. For example, I want
the
> numbering to start with 1001. When someone uploads the file, the file name
> will be 1001.xls and the document number cell will be 1001. The next
person
> that uploads the file will be 1002.xls.

It will be stored on the intranet in one place with only one copy. They will
have the option as to where they want to store the file (desktop, My
Documents, etc.).

"Tim Williams" wrote:

> How is it being uploaded? Do you have a routine which saves the file to a
> specific location?
> Is there only one copy or does >1 copy exist?
>
> --
> Tim Williams
> Palo Alto, CA
>
>
> "Lisa Alex" <Lisa [email protected]> wrote in message
> news:[email protected]...
> > I have an Excel template that I would like to put on our intranet. I want
> it
> > to create a unique, sequential file name each time it is uploaded, as well
> as
> > put that unique number in a cell within the template. For example, I want
> the
> > numbering to start with 1001. When someone uploads the file, the file name
> > will be 1001.xls and the document number cell will be 1001. The next
> person
> > that uploads the file will be 1002.xls.
>
>
>

(untested)
const F_PATH as string="\\servername\folder\subfolder\"
dim i as integer

i=1001

do while Dir(F_PATH & cstr(i) & ".xls")<>""
i=i+1
loop

thisworkbook.sheets("sheet1").range("A1").value=i
thisworkbook.saveas F_PATH & cstr(i) & ".xls"


Tim.

--
Tim Williams
Palo Alto, CA


"Lisa Alex" <[email protected]> wrote in message
news:[email protected]...
> It will be stored on the intranet in one place with only one copy. They
will
> have the option as to where they want to store the file (desktop, My
> Documents, etc.).
>
> "Tim Williams" wrote:
>
> > How is it being uploaded? Do you have a routine which saves the file to
a
> > specific location?
> > Is there only one copy or does >1 copy exist?
> >
> > --
> > Tim Williams
> > Palo Alto, CA
> >
> >
> > "Lisa Alex" <Lisa [email protected]> wrote in message
> > news:[email protected]...
> > > I have an Excel template that I would like to put on our intranet. I
want
> > it
> > > to create a unique, sequential file name each time it is uploaded, as
well
> > as
> > > put that unique number in a cell within the template. For example, I
want
> > the
> > > numbering to start with 1001. When someone uploads the file, the file
name
> > > will be 1001.xls and the document number cell will be 1001. The next
> > person
> > > that uploads the file will be 1002.xls.
> >
> >
> >