Save as Macro working for one computer but not the other?

[Infinity]

I have the following macro.

ActiveWorkbook.SaveAs "K:\Comm\Invest\Daily NBV New Calculations\" & "James-DV" & Right(Date, 2) & Mid(Date, 4, 2) & Left(Date, 2)

This macro is working fine on my computer but not on my colleagues computer. Anybody know what's wrong with the above code.

Thanks in advance

[Norman Jones]

Hi Infinity,

What error message is received on the problematic computer?


---
Regards,
Norman



"Infinity" <Infinity.25f85a_1143618602.0034@excelforum-nospam.com> wrote in
message news:Infinity.25f85a_1143618602.0034@excelforum-nospam.com...
>
> I have the following macro.
>
> ACTIVEWORKBOOK.SAVEAS \"K:\COMM\INVEST\DAILY NBV NEW CALCULATIONS\\" &
> \"JAMES-DV\" & RIGHT(DATE, 2) & MID(DATE, 4, 2) & LEFT(DATE, 2)
>
> This macro is working fine on my computer but not on my colleagues
> computer. Anybody know what's wrong with the above code.
>
> Thanks in advance
>
>
> --
> Infinity
> ------------------------------------------------------------------------
> Infinity's Profile:
> http://www.excelforum.com/member.php...o&userid=32725
> View this thread: http://www.excelforum.com/showthread...hreadid=527462
>

[John James]

Is the K drive path valid on the problem computer? Intentional that there isn't an extension such as .xls? Tried it without the hyphen? Tried it without the date values?

i.e. Try simplifying the problem by testing with simpler path and filenames. If you can get it working with a simpler example on the problem computer, then you can progressively make it more complex until you identify the part that makes it fall over, and then post that problem if it doesn't make sense.

[Infinity]

This is the error i received :

Run-time error ‘1004’

The file could not be accessed. Try one of the following:

Make sure the specified folder exists.
Make sure the folder that contains the file is not read-only.
Make sure the file name does not contain any of the following characters: < > ? [ ] : | or *
Make sure the file/path name doesn’t contain more than 218

I also made an attachment of the error message in a doc file.

[Infinity]

oh... and i just identified where the error came from. It is this problem

& Right(Date, 2) & Mid(Date, 4, 2) & Left(Date, 2)

If i remove this then i can save but i need the dates as the file is maintain of a daily basis and as figures changes. And asking people to maintain file name is a big problem a they have their own naming methods. I dont want this problem to happen.

Thanks again.

[Norman Jones]

Hi Infinity,

With the workbook in question active, run the problematic code
When the code errors, go to the VBE and select the project in the Project
Explorer Window

Hit the reset button and look at the Tools | References list

Look for any references marked as "MISSING".

Either uncheck the reference or, if the reference is needed, try the browse
button to locate the library,


---
Regards,
Norman




"Infinity" <Infinity.25fa8a_1143621303.7067@excelforum-nospam.com> wrote in
message news:Infinity.25fa8a_1143621303.7067@excelforum-nospam.com...
>
> oh... and i just identified where the error came from. It is this
> problem
>
> & RIGHT(DATE, 2) & MID(DATE, 4, 2) & LEFT(DATE, 2)
>
> If i remove this then i can save but i need the dates as the file is
> maintain of a daily basis and as figures changes. And asking people to
> maintain file name is a big problem a they have their own naming
> methods. I dont want this problem to happen.
>
> Thanks again.
>
>
> --
> Infinity
> ------------------------------------------------------------------------
> Infinity's Profile:
> http://www.excelforum.com/member.php...o&userid=32725
> View this thread: http://www.excelforum.com/showthread...hreadid=527462
>

[Infinity]

Just solve the problem.



Thanks Norman Jones