Microsoft 365 Insertion de lien dans cellule

netparty

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour netparty

A tester :
VB:
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

XLDnaute Occasionnel
Bonjour netparty

A tester :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson