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 Fred0oBonjour 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