Récupérer nom fichier et lien qui ouvre ce fichier

[cookies]

Bonjour à tous,


J'ai ce code qui me permet d'aller chercher les noms des fichiers d'un répertoire et d'y associer le lien vers ce fichier pour l'ouvrir.

Private Sub CommandButton2_Click()
    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim i As Long
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(ThisWorkbook.Sheets("Feuil1").Range("B2").Value)
    
    i = Range("A65536").End(xlUp).Row + 1
    
    For Each FileItem In SourceFolder.Files
        Cells(i, 1) = FileItem.Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name
        
        i = i + 1
    Next FileItem

Mon problème est que je voudrais enlever la boucle car elle est inutile dans mon cas et lui spécifier la cellule où mettre le lien. Par exemple en A1

J'ai tenté ça mais ça ne marche pas :

Sub ListeFichiers(Repertoire As String)
    
    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(ThisWorkbook.Sheets("Feuil1").Range("B2").Value)
    

        ActiveWorkbook.ActiveSheet.Cells(1, 1) = FileItem.Name
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(1, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name
            
End Sub

Merci d'avance pour votre aide

Cookies

 

[cookies]

Re : Récupérer nom fichier et lien qui ouvre ce fichier

Re,

J'ai trouvé comment récupérer et faire le lien.
Pour ceux que ça intéresse :

Sub Macro4()

 Dim lgDerligCode As Long

  ActiveSheet.Hyperlinks.Add Anchor:=Cells(lgDerligCode, 1), Address:= _
    ThisWorkbook.Sheets("Feuil1").Range("F2") & "\" & Cells(lgDerligCode, 3) & ".xlsm"

Avec dans deux cellules, le chemin et le nom du fichier.
(attention a ne pas oublier l'extension du fichier)

Merci quand même car je sais que vous auriez répondu.

Cookies