Re : generer un url lien hypertexte avec un bouton
Bonjour tonton
Un petit code extrait d'une application ou cette fonction est utilisée
Ici le lien est mis dans la cellule active. A l'adapter à ton application
Sub ajoutdoc()
'ajoute un lien
ChDir (ThisWorkbook.Path)
lien = Application.GetOpenFilename(",*.pdf")
nom = Right(lien, Len(lien) - InStrRev(lien, "\", -1))
ActiveCell.Hyperlinks.Add anchor:=ActiveCell, Address:=lien, TextToDisplay:=nom
End Sub