Je souhaiterais savoir comment faire pour lister tous les fichiers de toute
une arborescence et de les stocker dans une feuille excel avec la
possibilité d'y accéder via un lien hyper texte.
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
Philippe.R
Bonjour, Il y a ce qu'il faut pour lister les fichiers d'une arborescence ici : http://frederic.sigonneau.free.fr/Fichiers.htm pour transformer cette liste en liens hypertexte, tu peux utiliser l'enregistreur de macros et récupérer le code ainsi généré -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"issorp" a écrit dans le message de news:
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute une arborescence et de les stocker dans une feuille excel avec la possibilité d'y accéder via un lien hyper texte.
merci d'acance
IsSoRp
Bonjour,
Il y a ce qu'il faut pour lister les fichiers d'une arborescence ici :
http://frederic.sigonneau.free.fr/Fichiers.htm
pour transformer cette liste en liens hypertexte, tu peux utiliser l'enregistreur de macros et récupérer
le code ainsi généré
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"issorp" <issorp@noos.Fr> a écrit dans le message de news: Xns957DA792DAB9Drasorgftv@212.27.42.66...
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute
une arborescence et de les stocker dans une feuille excel avec la
possibilité d'y accéder via un lien hyper texte.
Bonjour, Il y a ce qu'il faut pour lister les fichiers d'une arborescence ici : http://frederic.sigonneau.free.fr/Fichiers.htm pour transformer cette liste en liens hypertexte, tu peux utiliser l'enregistreur de macros et récupérer le code ainsi généré -- Amicales Salutations XL 97 / 2000 / 2002 Retirer A_S_ pour répondre en privé. Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"issorp" a écrit dans le message de news:
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute une arborescence et de les stocker dans une feuille excel avec la possibilité d'y accéder via un lien hyper texte.
merci d'acance
IsSoRp
LeSteph
Bonsoir issorp, Si tu es sur PC Windows (pas sur Mac ou Unix ) bon à connaître aussi pour lister les fichiers faire un batch (qui pourra remettre cette liste à jour): ------ (sur le bureau) Démarrer Exécuter cmd (à l'invite ramener à c: en tapant) cd (puis on crée le batch:) copy con lstxl.bat dir *.xls/b/o:g/s>listexl.txt ^Z (avec la touche F6)
lstxl (attendre un peu) exit ----- de retour dans excel Enregistrer un nouveau classeur sous c:listexl.xls puis alt+F11 'dans le code de feuil1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Workbooks.Open Filename:¬tiveCell.Text End Sub 'puis insérer un module et donc dans module1: Sub ouvletxt() ChDir "C:" Workbooks.OpenText Filename:="C:listexl.txt", Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers _ :=True Columns("A:A").Select Selection.Copy ActiveWorkbook.Close False Windows("listexl.xls").Activate ActiveSheet.Paste Columns("A:A").EntireColumn.AutoFit ActiveWorkbook.Save
End Sub '***** (puis fermer vba) De retour dans excel exécuter macro ouvletxt répondre oui Inconvénient : après exécution de la macro ouvletext il faudra en fonction de ton jeu de caractères utiliser rechercher remplacer si tu as des noms de fichier à caractères accentués.
Ensuite tu n'as plus qu'a dblCliquer sur un nom pour l'ouvrir.
lSteph
"issorp" a écrit dans le message de news:
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute une arborescence et de les stocker dans une feuille excel avec la possibilité d'y accéder via un lien hyper texte.
merci d'acance
IsSoRp
Bonsoir issorp,
Si tu es sur PC Windows (pas sur Mac ou Unix )
bon à connaître aussi pour lister les fichiers
faire un batch (qui pourra remettre cette liste à jour):
------
(sur le bureau)
Démarrer
Exécuter
cmd
(à l'invite ramener à c: en tapant)
cd
(puis on crée le batch:)
copy con lstxl.bat
dir *.xls/b/o:g/s>listexl.txt
^Z (avec la touche F6)
lstxl
(attendre un peu)
exit
-----
de retour dans excel
Enregistrer un nouveau classeur sous c:listexl.xls
puis alt+F11
'dans le code de feuil1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Workbooks.Open Filename:¬tiveCell.Text
End Sub
'puis insérer un module et donc dans module1:
Sub ouvletxt()
ChDir "C:"
Workbooks.OpenText Filename:="C:listexl.txt", Origin:=xlMSDOS, StartRow
_
:=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1),
TrailingMinusNumbers _
:=True
Columns("A:A").Select
Selection.Copy
ActiveWorkbook.Close False
Windows("listexl.xls").Activate
ActiveSheet.Paste
Columns("A:A").EntireColumn.AutoFit
ActiveWorkbook.Save
End Sub
'*****
(puis fermer vba)
De retour dans excel exécuter macro ouvletxt
répondre oui
Inconvénient : après exécution de la macro ouvletext
il faudra en fonction de ton jeu de caractères utiliser
rechercher remplacer si tu as des noms de fichier à caractères accentués.
Ensuite tu n'as plus qu'a dblCliquer sur un nom pour l'ouvrir.
lSteph
"issorp" <issorp@noos.Fr> a écrit dans le message de news:
Xns957DA792DAB9Drasorgftv@212.27.42.66...
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de
toute
une arborescence et de les stocker dans une feuille excel avec la
possibilité d'y accéder via un lien hyper texte.
Bonsoir issorp, Si tu es sur PC Windows (pas sur Mac ou Unix ) bon à connaître aussi pour lister les fichiers faire un batch (qui pourra remettre cette liste à jour): ------ (sur le bureau) Démarrer Exécuter cmd (à l'invite ramener à c: en tapant) cd (puis on crée le batch:) copy con lstxl.bat dir *.xls/b/o:g/s>listexl.txt ^Z (avec la touche F6)
lstxl (attendre un peu) exit ----- de retour dans excel Enregistrer un nouveau classeur sous c:listexl.xls puis alt+F11 'dans le code de feuil1 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _ Cancel As Boolean) Workbooks.Open Filename:¬tiveCell.Text End Sub 'puis insérer un module et donc dans module1: Sub ouvletxt() ChDir "C:" Workbooks.OpenText Filename:="C:listexl.txt", Origin:=xlMSDOS, StartRow _ :=1, DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers _ :=True Columns("A:A").Select Selection.Copy ActiveWorkbook.Close False Windows("listexl.xls").Activate ActiveSheet.Paste Columns("A:A").EntireColumn.AutoFit ActiveWorkbook.Save
End Sub '***** (puis fermer vba) De retour dans excel exécuter macro ouvletxt répondre oui Inconvénient : après exécution de la macro ouvletext il faudra en fonction de ton jeu de caractères utiliser rechercher remplacer si tu as des noms de fichier à caractères accentués.
Ensuite tu n'as plus qu'a dblCliquer sur un nom pour l'ouvrir.
lSteph
"issorp" a écrit dans le message de news:
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute une arborescence et de les stocker dans une feuille excel avec la possibilité d'y accéder via un lien hyper texte.
merci d'acance
IsSoRp
FxM
Bonsoir,
Testé sous Excel 2000. Rame un peu dans la recherche si grand nombre de fichiers. Attention aux coupures de ligne.
@+ FxM
Sub test() If Sheets.Count = 1 Then Sheets.Add With Application.FileSearch .LookIn = "D:" .SearchSubFolders = True .Filename = "*.*" .Execute If .FoundFiles.Count > 0 Then Err.Clear On Error Resume Next Application.DisplayAlerts = False Sheets("zaza").Delete Application.DisplayAlerts = True Sheets.Add ActiveSheet.Name = "zaza" For i = 1 To .FoundFiles.Count col = Int(i / 65000) + 1 lig = (i - (65000 * (col - 1))) + 1 nom = .FoundFiles(i) With Sheets("zaza") .Cells(lig, col) = nom .Hyperlinks.Add Anchor:=.Cells(lig, col), Address:=nom, TextToDisplay:=nom End With Next i On Error GoTo 0 End If End With End Sub
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute une arborescence et de les stocker dans une feuille excel avec la possibilité d'y accéder via un lien hyper texte.
merci d'acance
IsSoRp
Bonsoir,
Testé sous Excel 2000. Rame un peu dans la recherche si grand nombre de
fichiers. Attention aux coupures de ligne.
@+
FxM
Sub test()
If Sheets.Count = 1 Then Sheets.Add
With Application.FileSearch
.LookIn = "D:"
.SearchSubFolders = True
.Filename = "*.*"
.Execute
If .FoundFiles.Count > 0 Then
Err.Clear
On Error Resume Next
Application.DisplayAlerts = False
Sheets("zaza").Delete
Application.DisplayAlerts = True
Sheets.Add
ActiveSheet.Name = "zaza"
For i = 1 To .FoundFiles.Count
col = Int(i / 65000) + 1
lig = (i - (65000 * (col - 1))) + 1
nom = .FoundFiles(i)
With Sheets("zaza")
.Cells(lig, col) = nom
.Hyperlinks.Add Anchor:=.Cells(lig, col), Address:=nom,
TextToDisplay:=nom
End With
Next i
On Error GoTo 0
End If
End With
End Sub
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute
une arborescence et de les stocker dans une feuille excel avec la
possibilité d'y accéder via un lien hyper texte.
Testé sous Excel 2000. Rame un peu dans la recherche si grand nombre de fichiers. Attention aux coupures de ligne.
@+ FxM
Sub test() If Sheets.Count = 1 Then Sheets.Add With Application.FileSearch .LookIn = "D:" .SearchSubFolders = True .Filename = "*.*" .Execute If .FoundFiles.Count > 0 Then Err.Clear On Error Resume Next Application.DisplayAlerts = False Sheets("zaza").Delete Application.DisplayAlerts = True Sheets.Add ActiveSheet.Name = "zaza" For i = 1 To .FoundFiles.Count col = Int(i / 65000) + 1 lig = (i - (65000 * (col - 1))) + 1 nom = .FoundFiles(i) With Sheets("zaza") .Cells(lig, col) = nom .Hyperlinks.Add Anchor:=.Cells(lig, col), Address:=nom, TextToDisplay:=nom End With Next i On Error GoTo 0 End If End With End Sub
Bonjour,
Je souhaiterais savoir comment faire pour lister tous les fichiers de toute une arborescence et de les stocker dans une feuille excel avec la possibilité d'y accéder via un lien hyper texte.
