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.
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 :
Merci d'avance pour votre aide
Cookies
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.
Code:
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 :
Code:
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
Dernière édition: