Comment inserrer liens hypertexte

[re4]

Bonjour,

j'utilise ce code mais je voudrais que le résultat soit en hypertexte, comme faire ?

Merci beaucoup

Sub ListFilesInFolder(SourceFolderName As String, IncludeSubfolders As Boolean)
' lists information about the files in SourceFolder
' example: ListFilesInFolder "C:\FolderName\", True
' Ole P Erlandsen (modifié fs 11/8/01)

Dim FSO 'As Scripting.FileSystemObject
Dim SourceFolder 'As Scripting.Folder
Dim SubFolder 'As Scripting.Folder
Dim FileItem 'As Scripting.File
Dim r As Long

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(SourceFolderName)
r = Range("A65536").End(xlUp).Row + 1

For Each FileItem In SourceFolder.Files
' display file properties
Cells(r, 1).Formula = FileItem.Name
Cells(r, 3).Formula = FileItem.DateLastModified
Cells(r, 4).Formula = FileItem.DateLastAccessed
Cells(r, 7).Formula = FileItem.ParentFolder
'Cells(r, 3).Formula = FileItem.DateCreated
'Cells(r, 3).NumberFormatLocal = "jj/mm/aa"
'Cells(r, 5).NumberFormatLocal = "jj/mm/aa"

' next row number
r = r + 1
Next FileItem

If IncludeSubfolders Then
For Each SubFolder In SourceFolder.SubFolders
ListFilesInFolder SubFolder.Path, True
Next SubFolder
End If

Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing

ActiveWorkbook.Saved = True

End Sub

 

[Pierrot93]

Re : Comment inserrer liens hypertexte

Bonjour,

regarde le code ci-dessous si il peut t'aider :

For Each FileItem In SourceFolder.Files
    With ActiveSheet
        .Hyperlinks.Add .Cells(r, 1), FileItem.Path
    End With
    r = r + 1
Next FileItem

bon après midi
@+

 

[re4]

Re : Comment inserrer liens hypertexte

Merci beaucoup pour ta reponse, mais je l'insère ou, sachant que je ne veux le lien que sur le nom.
Je ne suis pas l'auteur des lignes de code...

 

[Pierrot93]

Re : Comment inserrer liens hypertexte

Re re,

tu l'insères en lieu et place de la partie ci-dessous :

For Each FileItem In SourceFolder.Files
' display file properties
Cells(r, 1).Formula = FileItem.Name
Cells(r, 3).Formula = FileItem.DateLastModified
Cells(r, 4).Formula = FileItem.DateLastAccessed
Cells(r, 7).Formula = FileItem.ParentFolder
'Cells(r, 3).Formula = FileItem.DateCreated
'Cells(r, 3).NumberFormatLocal = "jj/mm/aa"
'Cells(r, 5).NumberFormatLocal = "jj/mm/aa"

' next row number
r = r + 1
Next FileItem

@+

 

[re4]

Re : Comment inserrer liens hypertexte

Merci pour l'efficacité, ça marche,
Très bonne journée

or Each FileItem In SourceFolder.Files
' display file properties
' avec link
With ActiveSheet
Cells(r, 1).Formula = FileItem.Name
.Hyperlinks.Add .Cells(r, 1), FileItem.Path
End With

'sans link
Cells(r, 3).Formula = FileItem.DateLastModified
Cells(r, 4).Formula = FileItem.DateLastAccessed
Cells(r, 7).Formula = FileItem.ParentFolder
'Cells(r, 3).Formula = FileItem.DateCreated
'Cells(r, 3).NumberFormatLocal = "jj/mm/aa"
'Cells(r, 5).NumberFormatLocal = "jj/mm/aa"

' next row number
r = r + 1
Next FileItem