Bonjour à tous,
Au cas où, voici une proposition inspirée de la méthode recommandée par Dan, avec 2 codes : un premier permettant d'exécuter l'autre lorsqu'on double-clique en colonne B :
'CODE A PLACER DANS MODULE FEUILLE DU DOUBLE CLIC
private sub worksheet_beforedoubleclick(byval target as range, cancel as boolean)
if not intersect(target, columns(2)) is nothing then
cancel = true
if target.row > 1 and target.value <> "" then call Ouvrir(target)
end if
end sub
'CODE A PLACER DANS UN MODULE NORMAL
Sub Ouvrir(Cible as range)
chemin = environ("USERPROFILE") & "\Desktop\SUIVI PHOTOS\suivi photos archive\SUIVI DOSSIER N°" & Cible.value & ".xlsx"
if dir(chemin) = "" then
msgbox "Fichier introuvable"
exit sub
end if
workbooks.open chemin
end sub
Cdlt,