Option Explicit
Sub Hyper()
Dim Bat As String
Dim App As String
Dim Loc As String
Dim Ents As String
Dim DPnum As String
Dim Obj As String
Dim NomFichierPDF As String
Dim Filename As String
Dim PartiesCommunes As String
Dim i As Integer
With Sheets("Récap DP")
For i = 2 To .Range("A65535").End(xlUp).Row
DPnum = .Range("T" & i)
Loc = .Range("I" & i)
Ents = .Range("O" & i)
App = .Range("G" & i)
Bat = .Range("H" & i)
Obj = .Range("Q" & i)
If .Range("T" & i) = "F ?????" Then
'enr Fax
NomFichierPDF = "Fax " & " " & DPnum & " " & Obj & " " & Ents
Filename = "C:\Bleu\Fax\" & Ents & "\" & NomFichierPDF & ".pdf"
Else
'enr DP Locataires
If App <> "" Then
NomFichierPDF = "DP" & " " & DPnum & " " & Loc & " " & Ents
Filename = "C:\Rouge\" & Bat & "\" & App & "\" & NomFichierPDF & ".pdf"
Else
'enr DP Parties communes
NomFichierPDF = "DP" & " " & DPnum & " " & Loc & " " & Ents
Filename = "C:\Vert\" & PartiesCommunes & "\" & NomFichierPDF & ".pdf"
End If
End If
ActiveCell.Hyperlinks.Add _
Anchor:=Range("V" & i), _
Address:=Filename, _
TextToDisplay:=Filename
Next i
End With
ActiveCell = [X60000].End(xlDown).Row
End Sub