Bonjour,
Voici mon code, mais quand j'édite la cellule K3, il ne se passe rien.
Dim r As Range, dossier$, ad$
Set r = [K3:K10000,P3
10000,V3:V10000] 'colonne A à adapter
dossier = "Q:\Ingenierie\D.I.R" '& "\Fichiers PDF" 'à adapter "Q:\Ingenierie\D.I.R\S-5023-5103.pdf"
If Dir(dossier, vbDirectory) = "" Then
MsgBox "Dossier '" & dossier & "' introuvable !", 48
With Application
.EnableEvents = False: .Undo: .EnableEvents = True
End With
Exit Sub
End If
Set r = Intersect(Target, r, Me.UsedRange)
If r Is Nothing Then Exit Sub
r.Hyperlinks.Delete 'RAZ
r.Font.ColorIndex = xlAutomatic
r.Font.Underline = xlUnderlineStyleNone
For Each r In r 'si entrées/effacements multiples (copier-coller)
If r <> "" Then
ad = dossier & "\" & r & ".pdf"
If Dir(ad) = "" Then
MsgBox "Fichier '" & r & ".pdf' introuvable !", 48
Else
r.Hyperlinks.Add r, ad 'création du lien hypertexte
End If
End If
Next
Qu'est-ce que je dois faire d'autre?
Pouvez-vous m'aider?
Merci
Cydor007