Il me reste dernière question est ce que c'est possible avoir dans la même case lien et document. Merci
Il me reste dernière question est ce que c'est possible avoir dans la même case lien et document.
LIEN_HYPERTEXTE("L:\FAC10005 - EPC2:\"&B2&".pdf";B2)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim chemin$, ext$, r As Range, t$
chemin = "L:\" 'à adapter
ext = ".pdf" 'à adapter
Set r = Intersect(Target, Me.UsedRange)
On Error Resume Next
For Each r In r 'si entrées/effacements multiples
r.Hyperlinks(1).Delete
t = chemin & r & ext
If Dir(t) <> "" Then Me.Hyperlinks.Add r, t, , r.Text
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim chemin$, ext$, r As Range, t$
chemin = ThisWorkbook.Path & "\" '"L:\" 'à adapter
ext = ".pdf" 'à adapter
Set r = Intersect(Target, Me.UsedRange)
On Error Resume Next
For Each r In r 'si entrées/effacements multiples
r.Hyperlinks(1).Delete
t = chemin & r & ext
If Dir(t) <> "" Then Me.Hyperlinks.Add r, t
Next
End Sub
--> Il serait préférable qu'une seule colonne soit concernée par celui-ci (dans le cas de le zoubir75, c'est la colonne B), car il affecte des liens hyper-texte quelles que soient les cellules, y compris là où il ne faudrait pas !
Set r = Intersect(Target, [B:B], Me.UsedRange)
donc il faut les mettre dans le même répertoire.