Notifications
Clear all

Abir arquivo PDF na label

6 Posts
2 Usuários
0 Reactions
1,245 Visualizações
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Olá colegas...
...Vejam se podem me ajudar....
O código abaixo, abre um determinado arquivo em PDF. Porem antes de abrir o Windows exibe a mensagem anexa. Tem como acrescentar mais alguma informação no código abaixo para abrir direto o PDF?

Private Sub Label1_Click()
ThisWorkbook.FollowHyperlink "F:DocumentosAlexandreManual EFDGuia_Pratico_Efd_Icms_Ipi_Versao2.0.14.pdf"
End Sub

Antecipadamente, muito obrigado.

 
Postado : 29/09/2014 9:08 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Já tentou algo assim....

Sub Macro1()


Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Seu código

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Att

 
Postado : 29/09/2014 10:06 am
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Boa tarde!
Alexandre,
Primeiramente, muito obrigado pela ajuda, mas queira me desculpar minha “ignorância” copiei e colei o sua dica mas não deu certo...Acredito que tenha eu tenha feito algum procedimento errado, em anexo segue arquivo para teste...Poderia adaptar para mim por favor?

 
Postado : 29/09/2014 10:27 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

infelizmente eu não tive problemas.

Private Sub Label1_Click()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

ThisWorkbook.FollowHyperlink "F:DocumentosDContabilAlexandreManual EFDGuia_Pratico_Efd_Icms_Ipi_Versao2.0.14.pdf"

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Att

 
Postado : 29/09/2014 10:40 am
(@xandrinho)
Posts: 0
New Member
Topic starter
 

Alexandre será que é por que meu Excel é 2002?

Att.

 
Postado : 29/09/2014 1:17 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

É provável que sim!!!!

Att

 
Postado : 29/09/2014 1:33 pm