Discussion :

[ThieBEN]

Bonjour à toutes et tous,
Je souhaiterais ouvrir un dossier spécifique à partir d’une cellule Excel et ouvrir les doc qui se trouvent à l’intérieur. J’ai trouvé un bout de code ( d'ARTURO 86) qui ouvre bien le dossier spécifique mais dans une fenêtre Excel. Bien sûr, je vois les sous répertoires et les doc Pdf. Mais lorsque, je clic pour ouvrir le Pdf ou word …, il m’ouvre une fenêtre d’assistant d’importation car il pense avoir affaire à un doc Excel. D’après vous est -ce possible de faire ce que je souhaite ?
Merci pour vos conseils.

Code :

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

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 C  'Changement du lecteur, ici lecteur C
        chemin = "C:\" & 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