Ouvrir un dossier sur double click cellule

Bonjour,

Sur la base du fichier excel ci-joint, pour chaque ligne j'ai un dossier nommé "Reference_Customer_Business_Cial" disponible sur un partage réseau \\myshare

52classeur1.xlsm (14.04 Ko)

Ex: Ligne 2 => le dossier correspondant "2021-0001_test_test_JT" a le chemin d'accès \\myshare\2021-0001_test_test_JT

J'aimerais mettre en place une macro qui, lorsque l'on double clique sur une Reference en colonne A, ouvre le dossier correspondant via l'explorateur Windows.

Débutant en VBA j'avoue ne pas savoir par où commencer ...

Merci d'avance pour votre aide

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).

120classeur1.xlsm (19.20 Ko)

Cdlt,

Bonjour,

C'est juste parfait, mieux ce serait indécent !!!

Merci beaucoup pour ton aide

Merci pour ce retour !

Bonne continuation !

Rechercher des sujets similaires à "ouvrir dossier double click"