recup lien vers répertoire et ouvrir

[p.pat27]

Bonjour

A l'aide d'une macro, j'ai créé 200 répertoires avec un nom incrémenté ( ex: analyse-1, analyse-2, ect...). Maintenant je n'arrive pas à récupérer tous les noms des répertoires ainsi créés pour les mettre dans une colonne sous forme de lien hypertext, et que le clic sur le lien ouvre le répertoire et non les classeurs contenus dans le répertoire. Les liens hypertext que j'ai essayé me renvoi toujours vers un classeur, pas vers un répertoire.
De plus je travail en réseau et lorsque j'inserre un lien il me met un "#" devant l'adresse et le lien ne fonctionne plus ??,😱

Pouvez vous venir à l'aide d'un pauvre naufragé VBA??

Merci à tous ceux qui répondrons
Patrick

 

[Pierrot93]

Re : recup lien vers répertoire et ouvrir

Bonjour Patrick

Sans voir le code utilisé, cela va être dur de t'aider...

Bonne journée
@+

 

[p.pat27]

Re : recup lien vers répertoire et ouvrir

Slt
C'est justement le code qu'il me faut!!! ou plutot la syntaxe pour les dossier
Je sais ecrire le code pour un lien hypertext vers un fichier, mais je n'y arrive pas pour un dossier !

le "#" est un deuxieme pb

Pat

 

[Pierrot93]

Re : recup lien vers répertoire et ouvrir

Re

pas tout compris, mais pour ajouter un lien vers un dossier dans la cellule A1 par exemple :

    ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), Address:= _
        "Z:\Dossier\SousDossier", TextToDisplay:="Z:\Dossier\SousDossier"

@+

 

[kiki29]

Re : recup lien vers répertoire et ouvrir

Salut,si cela peut aider

 

[p.pat27]

Re : recup lien vers répertoire et ouvrir

Merci

mais je ne connais pas " msoFileDialogFolderPicker" comment la déclarer?

 

[kiki29]

Re : recup lien vers répertoire et ouvrir

Salut, c'est vrai que FileDialog(msoFileDialogFolderPicker) n'existe qu'à partir d'Excel 2002
donc SelDossier à remplacer par

Sub SelDossier()
Dim oShell As Object, oFolder As Object, oFolderItem As Object
Dim Chemin As String
   
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
    
    On Error Resume Next
    Set oFolderItem = oFolder.Items.Item
    Chemin = oFolderItem.Path

    If Len(Chemin) > 0 Then Liste Chemin
    
    Set oFolderItem = Nothing
    Set oFolder = Nothing
    Set oShell = Nothing
End Sub

PS : Pour personnaliser BrowseForFolder http://www.oaltd.co.uk/DLCount/DLCount.asp?file=BrowseForFolder.zip ( affectation d'un répertoire de démarrage, centrage boite de dialogue etc )

 

[kiki29]

Re : recup lien vers répertoire et ouvrir

Salut, avec le code du lien donné plus haut