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
- Nom de l'adresse - Forum Réseaux sociaux
- Comment ouvrir un fichier epub ? - Guide
2 réponses
Armojax
Messages postés
1860
Date d'inscription
mercredi 19 janvier 2005
Statut
Membre
Dernière intervention
2 octobre 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