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

[Nain porte koi]

Hello

à tester

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
        ChDir chemin
 
        fileToOpen = Application.GetOpenFilename("Tous (*.*), *.*")
        If fileToOpen <> False Then
            Set WsShell = CreateObject("WScript.Shell")
            WsShell.Run fileToOpen
        End If
 
    End If
End Sub

[Philippe Tulliez]

Bonjour,
S'il s'agit d'ouvrir un fichier ou lister un répertoire, on peut le faire sans VBA avec la fonction LIEN_HYPERTEXTE

Quelques liens sur l'utilisation de la fonction

• La fonction LIEN_HYPERTEXTE et l'ouverture de répertoire
• Comment atteindre un signet de Word depuis Excel à l’aide de la fonction LIEN_HYPERTEXTE
• Ouvrir un classeur à l'aide de la fonction LIEN_HYPERTEXTE
• Aller à la prochaine ligne vide d'un tableau structuré à l'aide de la fonction LIEN_HYPERTEXTE
• Comment accéder à une cellule du classeur à l'aide de la fonction LIEN_HYPERTEXTE

[ThieBEN]

Merci à vous deux. Microsoft VBA me renvoi l'erreur (voir image jointe).

[Nain porte koi]

Re,

Philippe a parfaitement raison, un lien hypertexte serait bien mieux et ne nécessite pas de VBA
Si vous insistez pour que ce soit en VBA vérifiez que les références sont cochés

[ThieBEN]

Merci de votre aide et Ok pour la fonction lien hypertexte, c'est une fonction que je n'utilise pas. Certain disent que le lien hypertexte n'est pas sur. Je vais tester les deux solutions. Merci encore pour tous ces précieux conseils. Bon Week-end

[tototiti2008]

Bonjour,

Comme précisé par Philippe, et au vu du code VBA, une formule du type

Code :

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

=LIEN_HYPERTEXTE("C:\"&A2&C2&G2&U2;"Dossier")

je suppose

[Philippe Tulliez]

Bonjour,
Dans la colonne Lien du tableau structuré nommé t_Tutoriel, la formule

Code :

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

=SI(NBVAL(t_Tutoriel[@[Titre]:[URL]])=2;LIEN_HYPERTEXTE([@URL];[@Titre] & " - [" & [@Auteur] & "]");"")

Illustration