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