Bonjour,
Voici un essai avec ces 2 codes, que je n'ai pas pu tester évidemment :
'CODE A PLACER DANS MODULE FEUILLE DU DOUBLE CLIC
private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
if not intersect(target, range("Suivi")) is nothing then
cancel = true
call Ouvrir(target)
end if
end sub
'CODE A PLACER DANS UN MODULE NORMAL
Sub Ouvrir(Cible as range)
i = Cible.row
dossier = cells(i, 1) & "_" & cells(i, 3) & "_" & cells(i, 7) & "_" & cells(i, 21)
chemin = "\\myshare\" & dossier
if dir(chemin, vbdirectory) = "" then
msgbox "Ouverture impossible : dossier introuvable !", vbcritical, "Explorateur Windows"
exit sub
end if
Shell Environ("WINDIR") & "\explorer.exe " & chemin, vbNormalFocus
end sub
J'ai mis le tableau sous forme de tableau structuré. Il y a déclenchement au double-clic sur une ligne. Le dossier est alors la concaténation des valeurs des cellules A, C, G, U de la ligne (séparées par des underscores).
Cdlt,