Liste de fichiers dans excel

chazy_chaxxx -  
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 ?
Configuration: Windows XP
Firefox 3.0.11

4 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Regardes ceci et tu devrais avoir une solution.
    1
  2. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
    0
  3. chazy_chaxxx
     
    C'est bien gentil mais j'y comprend rien et je ne connais pas les macros Excel ? Je dois mettre ça dans une cellule ?
    0
  4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    Tu as aussi le droit de merci quand quelqu'un essaie de t'aider
    --
    0