Liste de nom de fichier sur excel
Résolu
Stela
Messages postés
61
Date d'inscription
Statut
Membre
Dernière intervention
-
QUAL02 -
QUAL02 -
Salut à tous
J'aimerais lister les fichiers gravés sur mes CD dans un tableau excel sans avoir à les retaper. Y a t-il un moyen rapide pour ça?
J'aimerais lister les fichiers gravés sur mes CD dans un tableau excel sans avoir à les retaper. Y a t-il un moyen rapide pour ça?
A voir également:
- Liste de nom de fichier sur excel
- Liste déroulante excel - Guide
- Fichier bin - Guide
- Fichier epub - Guide
- Fichier rar - Guide
- Comment réduire la taille d'un fichier - Guide
2 réponses
Hello stela,
Voici une petite macro qui devrait faire ce que tu veux.
- adapte la lettre de ton lecteur de CD et le choix du dossier (j'ai mis D:)
- adapte le nom de la feuille dans laquelle tu veux le résultat (j'ai mis "Feuil1")
Armojax.
Voici une petite macro qui devrait faire ce que tu veux.
- adapte la lettre de ton lecteur de CD et le choix du dossier (j'ai mis D:)
- adapte le nom de la feuille dans laquelle tu veux le résultat (j'ai mis "Feuil1")
Armojax.
Sub ListeFic()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim Diag As String
Dim Nbr As Long
Dim I As Long
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = "D:" ' adapter le nom du lecteur
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
Diag = Format(Nbr, "0 ""fichiers trouvés""")
I = 0
For Each NomFic In .FoundFiles
I = I + 1
Sheets("Feuil1").Cells(I, 1).Value = NomFic ' adapter le nom de la feuille
Next
MsgBox Diag
End With
End Sub
sur mon CD j'ai des fichier .zip,
quand je lance la macro mon CD tourne bien, mais il me dit ensuite dans une boite de dialogue qu'il trouve aucun fihier...
Le code fonctionne très bien.
Toutefois, la liste des fichiers trouvée est sous la forme de l'adresse de chaque fichier. J'aimerais avoir seulement le nom. Est-ce possible?
Merci