Excel Macro que abre arquivo em PDF

[ppeterk]

Tenho uma planilha que contêm uma lista enorme de Números. Cada número faz referência a um arquivo PDF salvo em uma pasta (Exemplo: número 2449. Tem um arquivo em PDF que se chama 2449).

Enfim, quero criar uma macro que, ao clicar no número da célula, ele busque o arquivo em PDF na pasta correspondente e ABRA o arquivo.

Em anexo, o arquivo excel e a pasta contendo os PDF's.

 

Obs: É serviço de empresa. Gostaria muito da ajuda de vocês!

 

Desde já, agredeço muito!

 

Arquivos.rar

[Muca Costa]

Veja o anexo. Na macro mude o caminho dos PDF's

Arquivos.rar

[ppeterk]

Perfeito. Exatamente como queria. Queria acrescentar 2 situações:

 

1º: Caso não tenha Adobe Reader, abra pelo navegador.

2º Um campo/célula na própria planilha que a pessoa possa digitar o caminho dos PDF's (as pessoas que receberão os arquivos não sabem mexer na macro).

[Muca Costa]

2º - Exemplo: Se o caminho for informado em B2, mude, na macro, para:

    stAppName = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & Range("B2") & "\" & Arq

 

1º - Essa eu fico devendo...

[Muca Costa]

"1º: Caso não tenha Adobe Reader, abra pelo navegador."

 

Abrindo pelo Firefox:

    stAppName = "C:\Program Files\Mozilla Firefox\firefox.exe " & "D:\Documents\Arquivos\PDF's" & "\" & Arq

[ppeterk]

@Muca Costa No caso, meu amigo, seria se o excel não encontrasse o Adobe. Ou seja, seria uma tratativa de erro: "Se não encontrar Adobe, busque o navegador!"

[Muca Costa]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim stAppName As String, Arq As String, Dir As String
    On Error GoTo vErro
    If Target.Column <> 1 Then Exit Sub
    Dir = "\PDF's\"
    Arq = Target.Offset(, 0).Value & ".pdf"
    stAppName = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & ThisWorkbook.Path & Dir & Arq
    Call Shell(stAppName, 1)
vErro:
    If Err = 53 Then                             'se o excel não encontrar o Adobe
        stAppName = "C:\Program Files\Mozilla Firefox\firefox.exe " & ThisWorkbook.Path & Dir & Arq
        Call Shell(stAppName, 1)
    End If
End Sub

Veja se substituindo o código resolve...