ChDir pull file path

[mysticmario]

Hi, Whenever i make changes to certain sheet in my excel I have an auto publish macro which creates html file out of it.
It works great cause the directory I Have put is taken from my PC. However, different people use this file from different PCs and despite this file being on google drive everyone has different path to it how can I make this Publish() sub to get its ChDir using the path it was opened from?

Sub publish()
    ChDir "G:\Mój dysk\ArtProInfo v1.5_Shared"
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName = "G:\Mój dysk\ArtProInfo v1.5_Shared\index.html"
        .publish (False)
        .AutoRepublish = False
    End With
End Sub

 

[mysticmario]

Ok the issue has to be somewhere deeper. I reverted to the old code

    ChDir "G:\Mój dysk\ArtProInfo v1.5_Shared"
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName = "G:\Mój dysk\ArtProInfo v1.5_Shared\index.html"
        .publish (False)
        .AutoRepublish = False
    End With

It also doesnt work, the same publish issue

 

[gordsky]

Ok the issue has to be somewhere deeper. I reverted to the old code

    ChDir "G:\Mój dysk\ArtProInfo v1.5_Shared"
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName = "G:\Mój dysk\ArtProInfo v1.5_Shared\index.html"
        .publish (False)
        .AutoRepublish = False
    End With

It also doesnt work, the same publish issue

so what has changed elsewhere in the macros? if youre old code no longer works.

 

[mysticmario]

so what has changed elsewhere in the macros? if youre old code no longer works.

nothing changed, it's weird...

 

[gordsky]

nothing changed, it's weird...

does a previous saved version still work

 

[mysticmario]

This is insane.
For testign purposes I recorded a macro where I manually publish the sheet as html and it worked.
Copied the same code to the publish() routine and it doesn't work I get the same publish error as always.
I'm mezmerized

 

[mysticmario]

Hi, Whenever i make changes to certain sheet in my excel I have an auto publish macro which creates html file out of it.
It works great cause the directory I Have put is taken from my PC. However, different people use this file from different PCs and despite this file being on google drive everyone has different path to it how can I make this Publish() sub to get its ChDir using the path it was opened from?

Sub publish()
    ChDir "G:\Mój dysk\ArtProInfo v1.5_Shared"
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName = "G:\Mój dysk\ArtProInfo v1.5_Shared\index.html"
        .publish (False)
        .AutoRepublish = False
    End With
End Sub

on top of that when i try to us ethe same macro again it's doesnt work, what the f...

 

[gordsky]

have y

on top of that when i try to us ethe same macro again it's doesnt work, what the f...

ou tried publishing to a different location to see if that changes anything? at least would rule out any access/filepath issues

 

[gordsky]

in case theres some delay in accessing the remote drive ( i think you said you were running direct on a PC drive before) could you try adding the line

Application.Wait(Now + TimeValue("0:00:10")) Before the .publish (false) line.

 

[mysticmario]

I tried eveyrthing and simply doesnt work.
I record macro it works, i rerun macor it works I call it from a button it doesnt work, I try to rerun the macro from macro list and it doesnt work anymore.
I dleted the button created new active X button, same problem

 

[mysticmario]

I create form control button and assigned macro - it worksI then created new activeX button assigned sub to it and i didnt work in addition previously assigned form control button macro also stopped working.
The issue is with the activeX control but I use them pretty much exclusively...

@edit
So i deleted the activeX button and the form control button started working again...
@edit2
Every code works now, my old code, new code created by you, i just can't use activeX button for that