Liste de nom de fichier sur excel
Résolu/Fermé
Stela
Messages postés
61
Date d'inscription
dimanche 30 novembre 2003
Statut
Membre
Dernière intervention
1 janvier 2008
-
11 mars 2005 à 18:14
QUAL02 - 22 nov. 2011 à 13:47
QUAL02 - 22 nov. 2011 à 13:47
A voir également:
- Liste de nom de fichier sur excel
- Liste déroulante excel - Guide
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
2 réponses
Armojax
Messages postés
1858
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
22 mars 2024
1 528
11 mars 2005 à 19:10
11 mars 2005 à 19:10
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
4 déc. 2008 à 19:40
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...
22 nov. 2011 à 13:47
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