Open file from the cell

[ashani]

Hi,

In my workbook - I have file path in my worksheet in Q8:S10 (merged cell) I would like to set the macro to open that path when user click on the button. It's a word document.

Also If the cells are empty than message box appear to say "Define Path".

Please can someone guide me.

Many thanks,

 

[mrshl9898]

Try:

Sub openfile()

    Dim wordapp
    Dim strFile As String

    strFile = Range("Q8").Value
    If Range("Q8") <> "" Then
    Set wordapp = CreateObject("word.Application")
    wordapp.Documents.Open strFile
    wordapp.Visible = True
    Else
    MsgBox "Define Path"
    End If
    
End Sub

 

[ashani]

thank you works perfectly.
quick question - the document opens in the background - is it possible to bring that to front so when click on the macro it opens up on the screen rather than in the background.
thanks once again.

 

[mrshl9898]

Not sure how to do that sorry, I have seen code where you loop through all open windows. Maybe something there to bring one to the front. Try asking again in a new post.

 

[AC PORTA VIA]

try to add this line of code

wordapp.Activate

after this line

wordapp.Visible = True

 

[ashani]

Thank you everyone- appreciate your help