Bom dia!!

Por favor, use a pesquisa do fórum e indique a Postagem-Cruzada!!!

http://www.tomasvasquez.com.br/forum/vi ... =20&t=2893

Já tentou algo

Sub AbrirPDF()

    Dim pdf As AcroPDDoc
    Dim strPDF As String

    Set pdf = CreateObject("AcroExch.PDDoc")
    
    'pdf file to open
    strPDF = "K:PDFSeupdf.pdf"

    'Abrir arquivo PDF
    pdf.Open strPDF

End Sub

viewtopic.php?f=10&t=2140
Att

Ajustei conforme abaixo só que agora diz que componente activeX não pode ser criado

Dim pdf As AcroPDDoc
Dim strPDF As String
Dim FileName As String
'Caminho do seu diretório
Const FilePath = "Z:ADMFINANCEIROBOLETOS"
'Nome e extenção do arquivo
FileName = Dir(FilePath & TextBox2.Text)
Do While FileName <> vbNullString
FileName = Dir()
Loop

Set pdf = CreateObject("AcroExch.PDDoc")

'pdf file to open
strPDF = FileName

'Abrir arquivo PDF
pdf.Open strPDF

Boa tarde!!

Enquanto alguém não responde, poste seu arquivo modelo!

Att

No frmconsulta botao boleto, gostaria que quando clicasse nele abrisse o pdf

Boa tarde!!

Para você não serve abrir um diretório e escolher os arquivos?

Private Sub btnboleto_Click()
    ActiveWorkbook.FollowHyperlink "C:Documents and SettingsTesteMeus documentosDownloads"
End Sub

Att

Boa tarde!!

Veja se ajuda

Private Sub btnboleto_Click()

MyPath = "C:Arquivos de programasAdobeReader 10.0ReaderAcroRd32.exe"
MyFile = "C:Documents and SettingsUserAleVBAMeus documentosDownloadsExercícios_vet.pdf" '<- Um arquivo em especifico foi referenciado
Shell MyPath & " " & MyFile, vbNormalFocus

End Sub

Obs: Cuidado com as referências marcadas como Ausente, se houver desmarque!

Att

Vou testar e já posto aqui, obrigado.

Este último método ele abre apenas um arquivo que tem que colocar na linha, vou continuar tentando naquele segundo método, mas mesmo assim obrigado!

Boa tarde!!

Você tem um diretório fixo com vários PDF's?
Mas eu não entendi, onde você vai digitar o nome do arquivo

Att

Oi desculpa acho que não fui específico,

Tenho um diretório fixo, com vários arquivos pdf, onde no textbox1 digitarei o nome deste arquivo e no botao boleto ele irá abrir o arquivo pdf de nome que digitei no textbox1

Boa tarde!!

já tentou assim

Private Sub btnboleto_Click()

MyPath = "C:Arquivos de programasAdobeReader 10.0ReaderAcroRd32.exe"
MyFile = "C:Documents and SettingsUserAleVBAMeus documentosDownloads" & Me.TextBox2
Shell MyPath & " " & MyFile, vbNormalFocus

End Sub

Att

Oi boa tarde,

Valeuuuuuuuu isso mesmo, muito obrigado pela ajuda!

Boa tarde!!

Essa forma tem uma vantagem, veja.

Private Sub btnboleto_Click()
If Me.TextBox2.Value = "" Or Me.TextBox2 <> MyFile Then
MsgBox "Preencha o campo ou verifique se foi digitado o nome do arquivo corretamente", vbInformation, "Atenção"
Else
MyPath = "C:Arquivos de programasAdobeReader 10.0ReaderAcroRd32.exe"
MyFile = "C:Documents and SettingsoraculoMeus documentosDownloads" & Me.TextBox2 & ".pdf"
Shell MyPath & " " & MyFile, vbNormalFocus
End If
End Sub

Click na mãozinha
Att