Demande d'aide pour modifier une macro

Bonsoir à tous, j'ai une macro qui m'ouvre bien l'explorer. En suite je clic sur un fichier et sur le texte de ma cellule je récupère bien le lien hypertext.

Ma question est comment ouvrir directement dans le bon répertoire à savoir : c:\Users\Accidents & analyse 5 pourquoi et arbres des causes\

Merci beaucoup pour votre aide ;).

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   If Not Application.Intersect(Target, Range("C18:C57")) Is Nothing Then   fichier = Application.GetOpenFilename() If fichier <> False Then 'MsgBox "Insertion du fichier " & fichier, vbOKOnly, "Confirmation" Else: MsgBox "Opération annulée ", vbOKOnly, "Confirmation": End End If ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="file://" & fichier End If   End Sub

---

Bonjour,

Essaie peut-être comme ceci

Code:

---

1 2 3 4 5

ChDir "C:\User\...." 'ton chemin complet fini par \ Fichier = Application.GetOpenFilename() '..... ' le reste de ton code

---

Essaye de définir ce répertoire dans DefaultFilepath.
Lire ceci : https://docs.microsoft.com/fr-fr/off...efaultfilepath

Merci, pour vos réponses je testerais ce code.

j'ais juste oublier de dire dans ma demande que le chemin réseau est en C5, alors comment le prendre en compte dans la macro.
Encore merci et bonne soirée a vous. je reviendrais pour la réponse sur le fonctionnement de la macro

Bonsoir, un grand merci a tous les deux pour votre aide :lol: