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

 

[gordsky]

if the file is already open then you could use
Application.ThisWorkbook.Path for just the path itself (without the workbook name) or
Application.ThisWorkbook.FullName for the path with the workbook name.

 

[mysticmario]

I have sth like this

Sub publish()





    ChDir (Application.ActiveWorkbook.Path)

    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")

        .FileName (Application.ActiveWorkbook.Path & "\" & "index.html*")

        .publish (False)

        .AutoRepublish = False

    End With

End Sub

but it seems to not work properly

 

[gordsky]

I have sth like this

Sub publish()





    ChDir (Application.ActiveWorkbook.Path)

    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")

        .FileName (Application.ActiveWorkbook.Path & "\" & "index.html*")

        .publish (False)

        .AutoRepublish = False

    End With

End Sub

but it seems to not work properly

when you say not work properly what exactly do you mean, what does it not do properly

 

[mysticmario]

when you say not work properly what exactly do you mean, what does it not do properly

invalid use of property for .filename
i tried this aswell but same result

Dim cDir As String
cDir = Application.ActiveWorkbook.Path
    ChDir (Application.ActiveWorkbook.Path)
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName cDir & "\" & "index.html*"
        .publish (False)
        .AutoRepublish = False
    End With
End Sub

 

[gordsky]

invalid use of property for .filename
i tried this aswell but same result

Dim cDir As String
cDir = Application.ActiveWorkbook.Path
    ChDir (Application.ActiveWorkbook.Path)
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName cDir & "\" & "index.html*"
        .publish (False)
        .AutoRepublish = False
    End With
End Sub

I can see you have changed "thisworkbook" to "Activeworkbook" this could be the issue.

 

[gordsky]

I can see you have changed "thisworkbook" to "Activeworkbook" this could be the issue.

you have also deleted the "=" after .filename

 

[mysticmario]

you have also deleted the "=" after .filename

Such a tiny piece of code and so many issues... Now this happens:

code:

Sub publish()
    ChDir (Application.ThisWorkbook.Path)
    With ActiveWorkbook.PublishObjects("ArtProInfo v1.5_8106")
        .FileName = Application.ThisWorkbook.Path & "\" & "index.html*"
        .publish (False)
        .AutoRepublish = False
    End With
End Sub

 

[mysticmario]

code breaks at .publish (False) according to debug highlight.

 

[gordsky]

code breaks at .publish (False) according to debug highlight.

again i think you missing the "=" sign before false