Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abir arquivo PDF na...
 
Notifications
Clear all

Abir arquivo PDF na label

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,248 Visualizações
RSS
 xandrinho
(@xandrinho)
Posts: 0
Estimable 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
Fernando Fernandes
 Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2014 10:06 am
 xandrinho
(@xandrinho)
Posts: 0
Estimable 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?

Fechar userform.zip
 
Postado : 29/09/2014 10:27 am
Fernando Fernandes
 Fernando Fernandes
(@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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

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

Att.

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

Bom dia!!

É provável que sim!!!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 29/09/2014 1:33 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico