Bonjour,
J'ai ce code qui marche bien pour lister des fichiers ,
Mais j'aimerai bien , ajour un ligne du genre :
Comment puis-je l'écrire ?
Merci
J'ai ce code qui marche bien pour lister des fichiers ,
Code:
Option Explicit
Public nb As Integer
Sub Appel()
Dim chemin As String
nb = 0
chemin = ThisWorkbook.Path
Lister chemin
End Sub
Public Function Lister(chemin As String)
Dim fs, Rep As Variant, NewRep As String, Nomfich As String
Set fs = CreateObject("Scripting.FileSystemObject")
Lister = fs.GetFolder(chemin).Files.Count
Nomfich = Dir(chemin & "\*.xls")
Do While Nomfich <> ""
nb = nb + 1
Cells(nb, 1) = chemin & "\" & Nomfich 'liste dans la feuille de calculs active
Nomfich = Dir()
Loop
'Pour chaque sous-répertoire, appel récursif de Lister
For Each Rep In fs.GetFolder(chemin).SubFolders
NewRep = Lister(Rep.Path)
Next Rep
End Function
Mais j'aimerai bien , ajour un ligne du genre :
Code:
Cells(nb, 2) = 'Cellule B4 de la feuil1 du fichier
Comment puis-je l'écrire ?
Merci