Liste de fichiers dans excel
chazy_chaxxx
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour à tous,
J'ai dans un dossier toute une série de fichiers avi (plusieurs centaines pour être moins vague) et j'aimerai avoir tous les noms des fichiers dans un document Excel ou Acces. Est-ce possible ?
J'ai dans un dossier toute une série de fichiers avi (plusieurs centaines pour être moins vague) et j'aimerai avoir tous les noms des fichiers dans un document Excel ou Acces. Est-ce possible ?
A voir également:
- Liste de fichiers dans excel
- Liste déroulante excel - Guide
- Excel liste déroulante en cascade - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Déplacer colonne excel - Guide
4 réponses
ci joint réponse par macro excel
Const partition As String = "d:" 'racine partition où sont les .avi à adapter
Sub lister_avi()
Dim fich As String, Chemin As String
Dim lig As Long
'fige le défilement de l'écran
Application.ScreenUpdating = False
'sélectionne le dossier des ".avi"
Chemin = BrowsingFolder(partition)
'force dans le répertoire de travail
ChDir Chemin
lig = 1
fich = Dir("*.avi")
While fich <> ""
Cells(lig, 1) = Left(fich, Len(fich) - 4)
lig = lig + 1
'affecte le fichier suivant (utilisation du joker " * " utilisé pour la def du 1° fichier)
fich = Dir
Wend
Columns(1).AutoFit
End Sub
Function BrowsingFolder(TheDrive As Variant)
'd 'après @+thierry XLD
Dim ObjShell As Object, ObjFolder As Object
Dim TheMessage As String
Dim ThePath As String
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.BrowseForFolder(&H0&, TheMessage, 1, TheDrive)
On Error Resume Next 'Si on sort sans sélection
ThePath = ObjFolder.ParentFolder.ParseName(ObjFolder.Title).Path & ""
BrowsingFolder = ThePath
End Function
