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
Nicolas B.
Salut,
Inspire-toi de Filsesearch :
Sub Recherche() With Application.FileSearch .NewSearch .LookIn = "C:" .SearchSubFolders = True .Filename = "*" .Execute For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next End With End Sub
A+ -- Nicolas B.
Bonjour
je cherche une macro pour lister tous les fichiers et les repertoires de mon disque dur Recurssif si possible
Merci d'avance Toto
Salut,
Inspire-toi de Filsesearch :
Sub Recherche()
With Application.FileSearch
.NewSearch
.LookIn = "C:"
.SearchSubFolders = True
.Filename = "*"
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1) = .FoundFiles(i)
Next
End With
End Sub
A+
--
Nicolas B.
Bonjour
je cherche une macro pour lister tous les fichiers et les repertoires
de mon disque dur Recurssif si possible
Sub Recherche() With Application.FileSearch .NewSearch .LookIn = "C:" .SearchSubFolders = True .Filename = "*" .Execute For i = 1 To .FoundFiles.Count Cells(i, 1) = .FoundFiles(i) Next End With End Sub
A+ -- Nicolas B.
Bonjour
je cherche une macro pour lister tous les fichiers et les repertoires de mon disque dur Recurssif si possible
Merci d'avance Toto
Misange
bonjour tu trouveras ça tout fait sur excelabo, page répertoires et ausi sur le site de Frédéric Sigonneau.
Misange migrateuse http://www.excelabo.net mail : http://cerbermail.com/?k5Q8Dh2mta
Bonjour
je cherche une macro pour lister tous les fichiers et les repertoires de mon disque dur Recurssif si possible
Merci d'avance Toto
bonjour
tu trouveras ça tout fait sur excelabo, page répertoires et ausi sur le
site de Frédéric Sigonneau.
Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta
Bonjour
je cherche une macro pour lister tous les fichiers et les repertoires de mon disque dur
Recurssif si possible