Abrir janela para selecionar arquivo e gerar hyperlink do arquivo selecionado

Olá amigos!

Estou pesquisando código VBA para aplicar a um campo tipo hyperlink em um formulário.

A ideia é, no evento click no campo tipo hyperlink...

- Abrir a janela de navegação de arquivos / pastas.

- Ao selecionar um arquivo, gerar o hyperlink

- Guardar o hyperlink gerado no campo hyperlink

É possível? Agradeço aos amigos qualquer sugestão.

Abraço!
Lárimer

Olá! Sim, é possível.

Qual a estrutura que você já tem para essa finalidade?
A partir daí veremos a melhor forma.

[Tópico movido para área mais apropriada]

Olá Marcelo!

Obrigado por responder.

Então, a estrutura é simples.
Tenho uma tabela com o campo tipo "Hyperlink".
Tenho um formulário para esta tabela.
No campo "Hyperlink" no formulário a ideia é que, ao clicar, abra a janela de diretórios / pastas.
Ao clicar sobre um arquivo, gera o link para o arquivo escolhido e armazena no campo hyperlink.

Numa etapa seguinte, ao clicar sobre o hyperlink já armazenado no campo, possa abrir o arquivo respectivo.

Agradeço qualquer sugestão.

Abraço!
Lárimer

Entendi,

Marque a referência Microsoft Office XX.X Object Library
 
XX.X deve ser a versão do seu office
 

Código:

Dim fd As FileDialog

    'Instancio o objeto FileDialog do Office
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    'Verifico se o usuário selecionou algum arquivo
    If fd.Show = -1 Then
        'Caso tenha selecionado, passo para campo o arquivo com caminho completo para o campo hiperlink
        Me.SeuCampoHiperLink = fd.SelectedItems(1)
    End If

    'Apago da memória a instancia do objeto FileDialog
    Set fd = Nothing

O Me.SeuCampoHiperLink deve ser alterado para o nome do seu campo que receberá o endereço do arquivo.

Obrigado, Marcelo!

Estou implementando aqui, mas já vi que vai funcionar.

Abraço!

Lárimer

Maravilha. Quando testar tudo, não esqueça de retornar aqui e marcar como resolvido o tópico.