Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. ###raw>post.musername###
    Membre habitué
    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 :-)
      0  0

  2. #2
    Membre régulier
    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 :Sélectionner tout -Visualiser dans une fenêtre à part
    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

  3. #3
    Membre habitué
    Merci , je test...
    Bonne journée

    EDIT:
    Super, cela fonctionne, encore merci