Microsoft 365 Insertion de lien dans cellule

[netparty]

Bonjour à tous

Je suis a la recherche d'une petite macro qui me permettrai d'importer un fichier pdf dans une cellule de ma feuille.

Mais ne mettre dans la cellule que le nom du fichier pdf et quand je clique sur ce lien il m'ouvre mon fichier pdf.



Merci d'avance

 

[Fred0o]

Bonjour netparty

A tester :

Sub Button1_Click()
    FichOrigine = ActiveWorkbook.Name
    wfile = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf", Title:="Fichier PDF a inserer")
    If wfile = False Then
        MsgBox "Aucun fichier choisi"
    Else
        ActiveCell.Value = wfile
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wfile, TextToDisplay:=wfile
    End If
End Sub

 

[netparty]

Bonjour netparty

A tester :

Sub Button1_Click()
    FichOrigine = ActiveWorkbook.Name
    wfile = Application.GetOpenFilename("Fichiers PDF (*.pdf), *.pdf", Title:="Fichier PDF a inserer")
    If wfile = False Then
        MsgBox "Aucun fichier choisi"
    Else
        ActiveCell.Value = wfile
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=wfile, TextToDisplay:=wfile
    End If
End Sub

Bonjour Fred0o

Merci cela fonctionne nickel.
Mais petite question est-il possible de n'afficher que le nom du fichier avec son extension ?

Et est-il possible d'utiliser cette macro dans un userform ?

Bonne journée