Ouvrir le répertoire à l'endroit du fichier sauf si extension .html et .hml

Bonjour,

Je sais ouvrir Office.FileDialog et récupérer une adresse style : C:\\users\documents\exemple\fichier.doc

Mais ce que j'aimerais c'est : si je connais le lien : C:\\users\documents\exemple\fichier.doc, c'est de pouvoir ouverture une fenêtre à l'endroit du fichier...

Est-ce possible ?

Merci d'avance :-)

Bonjour,

Voici un bout de code à adapter à votre besoin :
- une fonction pour récupérer le dossier.
- un module pour ouvrir le dossier trouvé avec la fonction.

Code:

---

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

Function NomDossier(ByVal strPath As String) As String ' Trouver le dernier backslash, s'il y en a un... Dim intI As Integer intI = InStrRev(strPath, "\", -1, vbTextCompare) ' Renvoyer la partie avant le backslash NomDossier = IIf(intI = 0, strPath, Left(strPath, intI - 1)) End Function   Sub OuvrirDossier() Dim my_dossier my_dossier = NomDossier("C:\users\USER\documents\exemple\fichier.doc") ' ouverture du dossier Shell "explorer.exe " & my_dossier, vbNormalFocus End Sub

---

Cordialement
Riton

Merci , je test... :)
Bonne journée

EDIT:
Super, cela fonctionne, encore merci :)