Et pour le petit bonus, avec sélection multiple : on double clic sur A1, on sélectionne 5 fichiers, on obtient les 5 hypertextes en A1:A5 :
private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
Dim chemin$, nom$, i%
if target.column <> 1 then exit sub 'évènement porte sur colonne 1, sinon sortie
cancel = true 'annule effet double-clic
With Application.FileDialog(msoFileDialogFilePicker) 'avec boite de dialogue(sélection fichiers)
.Title = "Sélectionner le fichier à pointer dans la cellule active" 'titre
.Show 'affiche
If .SelectedItems.Count > 0 Then 'si élément(s) séelctionné(s)
For i = 1 To .SelectedItems.Count
chemin = .SelectedItems(i) 'prend le chemin du premier
nom = Split(chemin, "\")(UBound(Split(chemin, "\")))
Application.EnableEvents = False 'désactive évènements
Me.Hyperlinks.Add anchor:=Target.offset(i - 1, 0), Address:=chemin, _
ScreenTip:="Fichier : " & nom, TextToDisplay:=Replace(nom, ".pdf", "") 'ajoute lien sur target
Application.EnableEvents = True 'réactive
Next i
End If
End With
end sub
Cdlt,