Op verschillende lokaties wordt bestand opgeslagen

[Hoppa]

dames en heren,

Ik heb in een bestand het volgende opgenomen:

' werkblad opslaan onder vastgestelde parameters
Dim sText As String

ChDir "k:\bestand\riv engineering\urenramingen 2005"

sText = ActiveSheet.Range("bmOpdrachtgever") & "-" & ActiveSheet.Range("bmProject") & "-" & Format$(Now, "dd-mm-yyyy") & ".xls"


ActiveWorkbook.SaveAs sText

'tover de tabbladen tevoorschijn

ActiveWindow.DisplayWorkbookTabs = True

'deactiveer userform

Unload Me

Nu gebeurt het volgende:
Op mijn pc slaat het bestand onder de juiste directory op (zie chdir). Op andere computers slaat excell het bestand op onder mijn documenten. chidr na sText zetten heeft geen zin, dat werkt niet.

Wie kan mij helpen?

mvg

Rini

 

[Palmpje]

Kun je op die andere PC's wel bij de betreffende schijf/directory... en mogen die daar schrijven?
Dat is het eerste dat ik zou uitzoeken.
Wellicht bestaat drive K: daar helemaal niet of is gekoppeld aan een andere netwerkdirectory.

 

[Hoppa]

Dat is het probleem niet. De schijf is volledig toegankelijk voor iedereen.

 

[Hoppa]

iemand enig idee?