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?
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
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
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