Obtenir chemin dossier

Bonjour le forum,

Je cherche à obtenir le chemin d'un dossier. J'utilise Application.FileDialog(msoFileDialogFolderPicker) pour ça. Le problème est quand le dossier se trouve sur un serveur. Dans ce cas, FileDialog me retouve un chemin de type ("http://.......") ce qui rend l'exploitation impossible par la suite.

De manière plus concrete, j'ai mappé un lecteur (le "Z:") connecté à un serveur. Comment convertir "https://myserver/video" en "z:\video" ?

Par avance, merci de l'aide sur le sujet

Bonjour

Essayez en utilisant Application.Path ou ThisWorkBook.Path ?

Bonjour,

Par défaut le fichier Excel est enregistré sur le c:\ donc pas de problème à ce niveau. Le prolème est uniquement quand le l'utilisateur sélectionne un dossier situé sur un lecteur réseau

Bonsoir,

Avec cette procédure, vous pouvez sélectionner un lecteur réseau :

Sub choix_du_répertoire()

    Dim dossier As Object, item As Object
    Dim répertoire As String

    Set dossier = CreateObject("shell.application").BrowseForFolder(0, "Choisir votre répertoire de départ", 0, "")
    If dossier Is Nothing Then MsgBox "aucun répertoire choisi": Exit Sub
    For Each item In dossier.ParentFolder.items
        If item.Name = dossier.Title Then répertoire = item.Path & "\": Exit For
    Next item

    MsgBox répertoire

End Sub

Bonsoir thev, je test votre proposition demain et vous tiens informé 😉

Super ça fonctionne parfaitement, merci !