Sub Num_Ulysse_3()
Dim mess$, mess2$, Chaine$, i#, Var
Application.ScreenUpdating = False
i = 5
mess = "\\Mariepierre\AAA_Tarifs Clients en vigueur\"
mess2 = ".xls"
Chaine = Dir(mess & "*" & mess2)
With Sheets("Tarifs")
Do While Chaine <> ""
If InStr(Chaine, ")") <> 0 And InStr(Chaine, "(") <> 0 Then
i = i + 1
Var = Split(Chaine, "_")
.Cells(i, 1) = Var(LBound(Var))
.Cells(i, 2) = Mid(Var(UBound(Var)), 1, Len(Var(UBound(Var))) - 4)
.Hyperlinks.Add Anchor:=.Cells(i, 3), Address:=mess & Chaine, TextToDisplay:=Chaine
.Cells(i, 4) = Mid(Chaine, InStr(Chaine, "(") + 1, InStr(Chaine, ")") - InStr(Chaine, "(") - 1)
End If
Chaine = Dir
Loop
End With
Application.ScreenUpdating = True
End Sub