Microsoft 365 Insertion de lien dans cellule

netparty · 20 Novembre 2020

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 · 20 Novembre 2020

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 · 20 Novembre 2020

Fred0o à dit:

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

Microsoft 365 Insertion de lien dans cellule

netparty

XLDnaute Occasionnel

Fred0o

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Discussions similaires

Microsoft 365 Insertion de lien dans cellule

netparty

XLDnaute Occasionnel

Fred0o

XLDnaute Barbatruc

netparty

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency