Liens hypertexte des sous repertoires

[typo]

Bonjour
Je cherche une macro pour lister l'ensemble des sous répertoire d'un répertoire.
J'ai trouvé comment lister l'ensemble des fichiers avec leur lien hypertexte mais moi je veux la même chose mais avec seulement l'adresse des sous répertoire.
Cordialement
Philippe

 

[JNP]

Re : Liens hypertexte des sous repertoires

Bonjour Typo ,
Pour lister tes dossiers, tu peux t'inspirer de la macro proposée par l'aide sur la fonction Dir

' Affiche les noms dans C:\ représentant des dossiers.
MyPath = "c:\"    ' Définit le chemin d'accès.
MyName = [B]Dir([/B]MyPath[B],[/B] vbDirectory[B])    [/B]' Extrait la première entrée.
Do While MyName <> ""    ' Commence la boucle.
    ' Ignore le dossier courant et le dossier
    ' contenant le dossier courant.
    If MyName <> "." And MyName <> ".." Then
        ' Utilise une comparaison au niveau du bit pour
        ' vérifier que MyName est un dossier.
        If (GetAttr(MyPath & MyName) _
            And vbDirectory) = vbDirectory Then
            Debug.Print MyName    ' Affiche l'entrée uniquement si elle
        End If    ' représente un dossier.
    End If
    MyName = [B]Dir[/B]    ' Extrait l'entrée suivante.
Loop

en remplaçant Debug.Print par le stockage du nom de dossier où tu le souhaites.
Pour définir MyPath, tu peux utiliser ce code

Dim Chemin As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
Chemin = .SelectedItems(1)
End With

qui te donnera le choix du dossier dans l'explorateur pour scanner ce répertoire.
Bon courage

 

[Catrice]

Re : Liens hypertexte des sous repertoires

Bonjour,

Tu peux également utiliser ceci :

Sub Test()
Columns(1).Clear
Chemin = "C:\"
Set Dossier = CreateObject("Scripting.FileSystemObject").getFolder(Chemin)
For Each X In Dossier.SubFolders
    i = i + 1
    Cells(i, 1).Value = X.Path
Next
End Sub

Voir le fichier joint

A modifier comme ceci pour avoir des liens hypertexte :

Sub Test()
Columns(1).Clear
Chemin = "C:\"
Set Dossier = CreateObject("Scripting.FileSystemObject").getFolder(Chemin)
For Each X In Dossier.SubFolders
    i = i + 1
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=X.Path, TextToDisplay:=X.Path
Next
End Sub

 

[MJ13]

Re : Liens hypertexte des sous repertoires

Bonjour à tous

Sinon, tu as ce post assez intéressant.

https://www.excel-downloads.com/threads/vba-liste-dossiers-et-sous-dossiers-dun-dosssier.126930/

 

[typo]

Re : Liens hypertexte des sous repertoires

je vous remercie à tous
plusieurs exemples correspondent à mon problème.
A très bientôt
philippe

 

[guigom]

Re : Liens hypertexte des sous repertoires

Bonjour,
Je ne sais pas s'il est possible de créer sur excel une liste des dossier, sous dossier, et tous les fichiers avec lien hypertexe?

j'ai un dossier avec des sous dossiers et des sous dossiers encore et au total pres de 5000 fichiers, un fichier excel me permettrait d avoir une vision globale mais je ne trouve pas le code permetant de donner les fichiers et lien des sous répertoire seulement le contenu d'un répertoire

est ce faisable à votre sens où dois je abandonner l'idée?

Merci si vous pouvez me dire vers quelle voix aller

Bonjour à tous

Sinon, tu as ce post assez intéressant.

https://www.excel-downloads.com/threads/vba-liste-dossiers-et-sous-dossiers-dun-dosssier.126930/