Discussion :

[The Probe]

Faut donc surement une macro pour contourner le problème

[ced600]

Oui mais une macro ne te permettera pas d'afficher un lien de plus de 255 caractères dans une case Excel, mais de toute façon, je doute que tu puisses faire quoique ce soit dans un répertoire ayant un aussi long chemin.

[The Probe]

Oui mais une macro ne te permettera pas d'afficher un lien de plus de 255 caractères dans une case Excel

Le fait de l'afficher n'est pas un probleme car le nom relatif ne fait pas 255 caractères. C'est le lien absolu (le chemin du lien) qui pose soucis. Et je suis sur une piste pour une macro pour contourner le problème. Je vous tiens au courant si j'y arrive

[The Probe]

Ayé c'est résolu!

Passage par une macro qui se substitue à lien_hypertexte qui va chercher le lien dans une cellule qui contient le chemin du lien qui est mis sous forme de texte normal et qui concatene cela avec le reste de ma formule de base.

Enfin ça marche quoi

[ced600]

Pourrait tu poster le code que tu as ecris, que quelqu'un d'autre qui aurait le même problème ne galère pas autant que toi pour trouver la solution ?
Et puis bravo pour la solution, je n'avais pas noté que tu avais le lien et le chemin du lien. En effet dans ce cas une macro peut t'aider et ton répertoire reste valide.

[The Probe]

En gros la macro donne ça dans la cellule où j'ai mon adresse du répertoire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Public Function getFirst(searchstring As String) As String
'renvoie le nom du fichier le plus récent correspondant à la chaine de recherche (chemin + masque de recherche)
Dim fName As String
Dim fDate As Date
Dim rName As String
Dim rDate As Date
Dim searchpath As String
 
 
searchpath = Left(searchstring, Len(searchstring) - Len(getFilename(searchstring)))
rDate = #1/1/1901#
rName = ""
 
If searchstring <> "" Then
    fName = Dir(searchstring)
    Do While fName <> ""
        fDate = FileDateTime(searchpath & fName)
        If fDate > rDate Then
            rName = fName
            rDate = fDate
        End If
        fName = Dir
    Loop
End If
getFirst = rName
End Function
 
 
 
Function getFilename(ByVal LRL As String) As String
'extrait le nom d'un fichier à partir de son chemin complet
Dim i As Long
Dim ReadCar As String
Dim TmpStr As String
 
i = Len(LRL)
TmpStr = ""
readChar = ""
 
Do While i > 0
    ReadCar = Mid(LRL, i, 1)
    If ReadCar <> "\" And ReadCar <> "/" Then
        TmpStr = ReadCar & TmpStr
        i = i - 1
    Else
        Exit Do
    End If
Loop
getFilename = TmpStr
End Function
 
Public Function hlink(URL As String, Display As String) As String
 
Application.ThisCell.Hyperlinks.Delete
 
Application.ThisCell.Hyperlinks.Add Application.ThisCell, URL, , , Display
 
hlink = Display
 
End Function

et la formule de cette cellule donne ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 =SI(E2=0;"";hlink(G2;E2))

(G2 est la cellule où le chemin du répertoire est collé.

Malheureusement c'est pas forcément super clair car j'ai des renvois à des feuilles, cellules répertoires qui me sont propres mais ça peut donner une idée