A partir d'un uderform, j'aimerais qu'en cliquant sur un option bouton, une fenêtre de l'explorateur s'ouvre, je sélectionne un fichier (n'importe quel type), récupère l'adresse et insère un lien hypertexte dans une cellule du classeur avec cette adresse.
Re : Recuper chemin de fichier et faire un lien hypertexte
Re
Dans ce cas, il nous reste la loupe en haut à droite de l'écran
ou alors essaie d'associer/adapter le code de cette macro à ton OptionButton
Code:
Sub TestOK()
Dim fichier$
fichier = Application.GetOpenFilename()
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"), Address:=fichier, TextToDisplay:=fichier
End Sub
Re : Recuper chemin de fichier et faire un lien hypertexte
Bonjour
effectivement c'était trés simple, j'ai adapté ton à mon OptionButton et cela fonctionne
en fait j'utilisé "FileDialog(msoFileDialogFilePicker)"
Merci pour ton aide