file does not exist error

Question

Oh Wise Ones,

We have 2 computers that the excel files work normally and 1 that doesn't

We have an excel workbook on a shared drive to create a hazardous work permit.  It has several macros with form buttons and at the end the main worksheet shows all the relevant info.  All 3 computers can perform this task.  The last step is to click a form button on that main worksheet that opens a 2nd workbook for printing and archiving.  The path to the 2nd workbook is hard coded in cell B5 of the 1st workbook.  Both workbooks are on a shared drive that is mapped to all 3 computers the same way via S:  The 3rd computer will get a "file does not exist error" when the print (macro) button is pressed.   The 3rd computer can navigate to the correct 2nd workbook so it does exist.  It would seem like something in the options since the workbooks work fine on the other 2 computers. 

Thanks,

              Mike

Path in B5 of the 1st workbook:

S:\common\HPM\Safety\Historical.xlsm

Answer 1

Hi Mike,

If you haven't already done so, we suggest that you enable macros with the Trust Center by following the steps found on this link.

Update us on the result.

Thank you.

Answer 2

I have B5 selected in the screen cap below.

The debugger hangs on the line I have bolded. 

Sub Historical()

'

' Historical Macro

' Macro recorded 4/21/2010 

'

ScreenUpdating = False

Worksheets("Data").Activate

Workbooks.Open CStr(Range("B5"))

Workbooks("Hazardous Work Permit.xlsm").Activate

    Sheets(Array("Permit", "Signatures")).Select

    Sheets("Signatures").Activate

    Sheets(Array("Permit", "Signatures")).Copy Before:=Workbooks("Historical.xlsm") _

        .Sheets(1)

    Sheets("Permit").Name = Range("C2")

    Sheets("Signatures").Activate

    Range("B3").Copy

    Range("I2").Activate

    ActiveCell.PasteSpecial Paste:=xlPasteValues

    Sheets("Signatures").Name = Range("I2")

    ActiveWorkbook.Save

    ActiveWorkbook.Close

Workbooks("Hazardous Work Permit.xlsm").Sheets("Permit").Select

Sheets("LogBook").Activate

Sheets("LogBook").Range("A4").Hyperlinks.Add Range("A4"), Sheets("Data").Range("D7").Value

Sheets(Array("Permit", "Signatures")).PrintPreview

'PrintOut

Sheets("Permit").Select

ActiveWorkbook.Save

Answer 3

Hi,

Can you post the VBA code behind the macro you are trying to run?

Maybe there are other paths hard coded in the module?

Regards,

Marek

Answer 4

We are all using Windows 7 Enterprise.

My machine (that works) and James machine (that wont work) are both using Excel 14.0.7172.5 (32-Bit)

The 3rd individual is unavailable at the moment. 

Thanks,

               Mike

Answer 5

Hi Mike,

To assist you better with your concern, we need to ask you the following questions:

• Are you using the same version of Excel on the three computers?
• What operating system do you have on your three computers?

Regards.