Discussion :

[christophe77100]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mfoxy]

Bonjour,

Essaie peut-être comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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

[christophe77100]

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

[christophe77100]

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