Ouvrir un dossier sur double click cellule

Bonjour,

J'ai un fichier excel comportant 4 colonnes

Reference | Client | Destination | Commercial

Pour chaque enregistrement j'ai un dossier nommé "Reference_Client_Destination_Commercial" qui est créé sur un partage réseau => \\myshare\Reference_Client_Destination_Commercial
J'aimerais mettre en place une macro qui, lorsque l'on double clique sur une Reference, 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,

Essayez ceci:
Dans un premier temps, faire ALT + F11 pour accéder au module VBA. sur la fenêtre de gauche, double-clic sur le nom de la feuille qui contient la liste "Reference | Client | Destination | Commercial"
Dans la partie droite, collez ce bout de code:

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ChDrive Q 'Changement du lecteur, ici lecteur Q Chemin = "Q:\\myshare\" & Target & Target.Offset(0, 1).Value & Target.Offset(0, 2).Value & Target.Offset(0, 3).Value '\\myshare\Reference_Client_Destination_Commercial Ouvrir = Application.Dialogs(xlDialogOpen).Show(Chemin) End Sub

---

Ce code ne garantit pas que cela va fonctionner du premier coup, puisque je ne connais pas votre installation, par contre, cela vous met sur la piste et il ne reste plus qu'à l'adapter à votre situation.
Pour cela, revenez sur la feuille excel et activez l'enregistreur de macro.
-ouvrez manuellement un des fichiers puis arrêtez l'enregistrement de la macro.

Faire ALT + F11, allez sur le module1 et faites une comparaison avec le code que vous avez collé précédemment, les noms en dur tels que "Reference", "Client" sont remplacés par "target", "target.offset(0,1).value" etc
Corrigez certains points qui peuvent être différents tels que le lecteur, les répertoires.

Faites des essais en double-cliquent sur l'une des références, si un message d'erreur s'affiche, cliquez sur "Débogage" et passez la souris sur la ligne surlignée en jaune, observez les valeurs qui s'affichent et essayez de déterminer pourquoi ça ne marche pas.

Voilà, vous avez une première approche, à vous d'essayer de comprendre et de l'adapter.
Mais si vous débutez en VBA, entraînez-vous avec l'enregistreur de macro à faire plein d'actions et analysez-les, c'est excellent pour apprendre.

Cdlt

Bonjour,

Un grand merci pour votre aide.
J'ai adapté la macro sur la base du fichier joint

Code:

---

1 2 3 4 5

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ChDrive = "D:\Users\Sami\myshare\" 'Changement du lecteur, ici lecteur Q Chemin = ChDrive & Target & Target.Offset(0, 2).Value & Target.Offset(0, 6).Value & Target.Offset(0, 20).Value '\\myshare\Reference_Client_Destination_Commercial Ouvrir = Application.Dialogs(xlDialogOpen).Show(Chemin) End Sub

---

Mais lorsque je double clique sur une cellule de la colonne A "REFERENCE" rien ne se passe.

Merci encore

Bonjour,

Attention, la macro est évènementielle, donc elle doit se trouver dans le module de la feuille.
ChDrive sert à indiquer à excel qu'il doit changer de disque s'il est différent de celui où se trouve le fichier en cours.

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then ChDrive D 'Changement du lecteur, ici lecteur D Chemin = "D:\" & Target & Target.Offset(0, 2).Value & Target.Offset(0, 6).Value & Target.Offset(0, 20).Value '\\myshare\Reference_Client_Destination_Commercial Ouvrir = Application.Dialogs(xlDialogOpen).Show(Chemin) End If End Sub

---

Pièce jointe 590829

Cdlt

Effectivement ça marche beaucoup mieux dès qu'on comprend le fonctionnement ;-)
J'ai juste modifier la variable "Chemin" pour tenir compte des "_"

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then ChDrive D 'Changement du lecteur, ici lecteur D Chemin = "D:\" & Target &"_"& Target.Offset(0, 2).Value &"_"& Target.Offset(0, 6).Value &"_"& Target.Offset(0, 20).Value '\\myshare\Reference_Client_Destination_Commercial Ouvrir = Application.Dialogs(xlDialogOpen).Show(Chemin) End If End Sub

---

Merci infiniment

Bon Week End