Lister les fichier d'un dossier avec le lien hypertexte vers ses fichiers

Bonjour,

J'aimerai trouver un fichier simple pour lister les fichier d'un dossier.

En cliquant sur un bouton qui m'ouvre une boite de dialogue avec laquelle je vais sélectioner le dossier concerné.

Merci pour votre aide

Bonjour

Peux tu nous faire voir ce que tu as déjà fait, pour faciliter les choses

Crdlt

Bonjour,

merci pour ta réponse j'ai trouvé ce code que je suis entrain d'adapter

Sub Example1()
'Updateby Extendoffice
    Dim xFSO As Object
    Dim xFolder As Object
    Dim xFile As Object
    Dim xFiDialog As FileDialog
    Dim xPath As String
    Dim I As Integer
    Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFiDialog.Show = -1 Then
        xPath = xFiDialog.SelectedItems(1)
    End If
    Set xFiDialog = Nothing
    If xPath = "" Then Exit Sub
    Set xFSO = CreateObject("Scripting.FileSystemObject")
    Set xFolder = xFSO.GetFolder(xPath)
    For Each xFile In xFolder.Files
        I = I + 1
        ActiveSheet.Hyperlinks.Add Cells(I + 6, 1), xFile.Path, , , xFile.Name
    Next
End Sub

çà marche bien pour mon utilisation sauf que j'ai d'autres question faut il que j'ouvre un nouveau post?

Bonjour,

Une proposition :

Merci thev pour ta contribution.

Windows me bloque les macro des fichiers extérieur pourtant je mets accepter dans excel, je trouve pas ou aller pour autoriser

Bonjour,

1- sélectionner le fichier

2- clic droit --> menu contextuel --> clic gauche sur Propriétés --> cocher la case : débloquer en bas à droite de la fenêtre.

Bonsoir,

Merci thev pour l'astuce.

Ton code marche bien mais est plus long que celui que j'ai trouvé.

Je vais mettre résolu

j'ai d'autre soucis je vais faire un nouveau post

Bonsoir,

Oui, le code est plus long mais plus complet car il restitue aussi les fichiers des éventuels sous-dossiers du dossier choisi.

bonsoir,

oui j'ai vu çà ,je pense ne pas en avoir l'utilité dans mon projet. mais j'ai mis ton post comme celui qui dit résolu, il me servira dans un autre cas je pense