[Resolvido]Hiperlink não abre arquivos Office

Amigos, boa noite!

Estou usando Application.FileDialog(msoFileDialogFilePicker) para "capturar" nome e endereço de arquivos num campo de tabela tipo Hiperlink.

Funciona só que ocorre um problema:

Quando o link gerado é para um arquivo PDF ele abre normalmente ao clicar.

Porém, quando se trata de arquivos MS Office (Excel, Word, ...) eles não abrem.

Alguma sugestão?

Obrigado!

Lárimer

Ola;

Cole aqui toda a instrução que está a ultilizar e qual a versão do seu Office.

Pode ainda testar, no evento ao pressionar do seu campo;

Application.FollowHyperlink Me.SuaCaixaTexto, , True

Obrigado, JPaulo!

Sua sugestão funcionou.

Só que quando anexei e testei abrir arquivos PDF apareceu um alerta de segurança sobre hiperlink.
Na primeira tentativa chegou a interromper a execução.
Curioso porque antes eram justamente os PDF que estavam abrindo corretamente...
Nas tentativas seguintes com PDF parece que está funcionando.

Nos arquivos tipo Office e imagens não apareceu nenhum alerta.

O código que estou usando segue abaixo.
Encontrei como exemplo no MSDN e só tirei a parte que fazia filtros na busca para arquivos tipo MDB e deixei para "All Files".

Muito obrigado!

Private Sub Comando5_Click()
Dim fDialog As Office.FileDialog
   Dim varFile As Variant
   Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
   Me.Documento = ""
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
   .AllowMultiSelect = False
   Title = "Selecione um arquivo"
   .Filters.Clear
     .Filters.Add "All Files", "*.*"
If .Show = True Then
   For Each varFile In .SelectedItems
   Me.Documento = varFile
   Next
Else
MsgBox "Busca Cancelada."
End If
End With
Me.Recalc
End Sub

A mensagem de segurança, na instrução que lhe passei, vai aparecer sim, mas pode desativar;

Private Sub Form_Open(Cancel As Integer)
'Requer a seguinte referência VBA ativa:
'Microsoft Scripting Runtime
Dim strInibeAlertas As Object
on error resume next
Set strInibeAlertas = CreateObject("Wscript.Shell")
strInibeAlertas.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Office\11.0\Common\Security\DisableHyperlinkWarning", 1, "REG_DWORD"
End Sub

Teste assim, que é como eu uso sem problemas;

Private Sub SeuBotao_Click()
Dim objDialog As Object

Set objDialog = Application.FileDialog(3)

With objDialog
   .AllowMultiSelect = False
   .Show
   If .SelectedItems.Count = 0 Then
       MsgBox "Selecione um ficheiro."
   Else
       Me.Documento = .SelectedItems(1)
   End If
End With
Set objDialog = Nothing
End Sub

Muito Bom JPaulo, mais uma para o meu aprendizado! Obrigado!

Amigo JPaulo,

Como faço pra te mandar uma cerveja aí em Portugal?

Perfeito e muito muito obrigado!

Lárimer

Não precisa mandar não, vou ae 3 vezes por ano....  

Obrigado pelo retorno o forum agradece.