Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Liens hypertexte automatique

Liens hypertexte automatique

2 réponses
Avatar
Franck
Bonjour,


Je viens de trouver un exemple de code pour r=E9cup=E9rer=20
tous les fichiers excel d'un r=E9pertoire=20

Quelqu'un pourrait-il modifier ce code de fa=E7con qu'=E0=20
chaque fois, un lien hypertexte soit cr=E9er, pointant sur=20
ce fichier

Enfin, si c'est possible !!

Voici le code

Dim typefile

Sub ChercheXLS()
typefile =3D "xls"
Worksheets.Add
ActiveSheet.Name =3D "Liste des fichiers XLS" & " " &=20
typefile
[A1].Value =3D "Liste des fichiers" & " " & typefile
Selection.Font.Bold =3D True

Dim LstFile As Long
With Application.FileSearch
.Filename =3D "*." & typefile
.LookIn =3D "d:\clients\"
.SearchSubFolders =3D True
For LstFile =3D 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile + 1, 1).Value =3D .FoundFiles
(LstFile)
Next LstFile
End With
End Sub

Merci pour votre aide

Salutations
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
pierref
voila, a priori ca marche
(attention aux morceaux de code qui sont passés a la
ligne, il faudra refaire un peu la mise en page)

a+

Sub ChercheXLS()

Dim typefile
typefile = "xls"
Worksheets.Add
ActiveSheet.Name = "Liste des fichiers XLS" & " " &
typefile
[A1].Value = "Liste des fichiers" & " " & typefile
Selection.Font.Bold = True

Dim LstFile As Long
With Application.FileSearch
.FileName = "*." & typefile
.LookIn = "d:clients"
.SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile + 1, 1).Value = .FoundFiles
(LstFile)
ActiveSheet.Cells(LstFile + 1, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=Selection.Value
Next LstFile
End With
End Sub


-----Message d'origine-----
Bonjour,


Je viens de trouver un exemple de code pour récupérer
tous les fichiers excel d'un répertoire

Quelqu'un pourrait-il modifier ce code de façcon qu'à
chaque fois, un lien hypertexte soit créer, pointant sur
ce fichier

Enfin, si c'est possible !!

Voici le code

Dim typefile

Sub ChercheXLS()
typefile = "xls"
Worksheets.Add
ActiveSheet.Name = "Liste des fichiers XLS" & " " &
typefile
[A1].Value = "Liste des fichiers" & " " & typefile
Selection.Font.Bold = True

Dim LstFile As Long
With Application.FileSearch
..Filename = "*." & typefile
..LookIn = "d:clients"
..SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile + 1, 1).Value = .FoundFiles
(LstFile)
Next LstFile
End With
End Sub

Merci pour votre aide

Salutations
.



Avatar
Franck
BONNE ANNEE


-----Message d'origine-----
voila, a priori ca marche
(attention aux morceaux de code qui sont passés a la
ligne, il faudra refaire un peu la mise en page)

a+

Sub ChercheXLS()

Dim typefile
typefile = "xls"
Worksheets.Add
ActiveSheet.Name = "Liste des fichiers XLS" & " " &
typefile
[A1].Value = "Liste des fichiers" & " " & typefile
Selection.Font.Bold = True

Dim LstFile As Long
With Application.FileSearch
..FileName = "*." & typefile
..LookIn = "d:clients"
..SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile + 1, 1).Value = .FoundFiles
(LstFile)
ActiveSheet.Cells(LstFile + 1, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=Selection.Value
Next LstFile
End With
End Sub


-----Message d'origine-----
Bonjour,


Je viens de trouver un exemple de code pour récupérer
tous les fichiers excel d'un répertoire

Quelqu'un pourrait-il modifier ce code de façcon qu'à
chaque fois, un lien hypertexte soit créer, pointant
sur


ce fichier

Enfin, si c'est possible !!

Voici le code

Dim typefile

Sub ChercheXLS()
typefile = "xls"
Worksheets.Add
ActiveSheet.Name = "Liste des fichiers XLS" & " " &
typefile
[A1].Value = "Liste des fichiers" & " " & typefile
Selection.Font.Bold = True

Dim LstFile As Long
With Application.FileSearch
..Filename = "*." & typefile
..LookIn = "d:clients"
..SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
ActiveSheet.Cells(LstFile + 1, 1).Value = .FoundFiles
(LstFile)
Next LstFile
End With
End Sub

Merci pour votre aide

Salutations
.

.