[XL-2007] script pour récupérer nom de fichier et le mettre dans excel

script pour récupérer nom de fichier et le mettre dans excel

Bonjour / Bonsoir,

Je ne sais pas si sous Excel on peut le faire mais bon.
En fait, j'ai plusieurs fichiers (films, musiques, documents....) et je voudrais faire une sorte de classeur pour les recenser. Donc je recherche un script, ou un programme ou pourquoi pas avec une macro qui me récupère le nom de mes fichiers et me les mets dans un fichier Excel.
Avez-vous des pistes ou une solution?

PS: le développement et moi ça fait un peu 4 mais je veux bien m'investir dans çà et qui pourrait peut-être aidé plusieurs personnes.

Merci d'avance

Renaud

Bonsoir,
tu travailles avec excel 2007 donc une première chose à faire :
lire et telecharger ce complément
http://silkyroad.developpez.com/vba/classefilesearch/

ensuite adapter cet exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub fichiers_recherches()
Dim i As Long, stmessage As String, nom As String, nom2 As String, inombre As Integer
Dim recherche As ClFileSearch.ClasseFileSearch, r As String, partienom As String
'ci-dessous, on donne à "r" le chemin de la recherche
r = InputBox("Les sous-dossier sont inclus dans la Recherche", "dossier de recherche", ThisWorkbook.Path) 'exemple
'exemple de message au depart
partienom = InputBox("contenu du fichier à rechercher", "RECHERCHE DE FICHIER", ".xlsm")
Set recherche = ClFileSearch.Nouvelle_Recherche
With recherche
   'répertoire pour lancer la recherche
   .FolderPath = r
   'inclu les sous-dossiers dans la recherche
   .SubFolders = True
   'Option de tri:
   '(Sort_None, sort_Name, sort_Path, sort_Size, sort_DateCreated, sort_LastModified, sort_Type)
   'Pas de tri si le paramètre n'est pas spécifié.
   .SortBy = sort_DateCreated
   .Extension = "*" & partienom & "*"
   'procède à la recherche et capture le nombre de fichiers trouvés
   inombre = .Execute
   If inombre = 0 Then
      MsgBox "0" & " fichier trouvé"
      Exit Sub
   End If
      stmessage = VBA.Format(inombre, "0"" fichiers trouvés""")
      For i = 1 To .FoundFilesCount
         nom = .Files(i).strfileName 'nom fichier
         nom2 = .Files(i).strpathName & "\" & nom
         Range("a" & i) = nom 'nom du fichier
         Range("b" & i) = nom2 'avec son chemin
      Next i
End With
 
End Sub

bon courage

Merci bien
Il faut déjà que je teste et donc je reviendrais au cas où j'ai des soucis, ou si tout est ok ;).