Je cherche à faire une macro sous excel permettant de faire les choses suivante :
1 - choisir un dossier  
2 - Compter le nombre de fichier dans le dossier  
3 - ouvrir un à un les fichiers de ce dossier pour scanner le contenu
 
Pour le 1 et 2 j'ai ca pour l'instant :  
----------------------------------------------------------------------------------
Sub NbDeFichiers(LeDossier$, Cpte&, Optional SousDossiers As Boolean = True)
Dim fso As Object, Dossier As Object
Dim sousRep As Object
 
Set fso = CreateObject("Scripting.FileSystemObject" )
Set Dossier = fso.GetFolder(LeDossier)
Cpte = Cpte + Dossier.Files.Count
'traitement récursif des sous dossiers
If SousDossiers Then
For Each sousRep In Dossier.SubFolders
NbDeFichiers sousRep.Path, Cpte
Next sousRep
End If
Set fso = Nothing
End Sub
 
--------------------------------------------------------------------------------------
Sub test()
 
Dim Dossier As String
Dim Nb&
 
Application.FileDialog(msoFileDialogFolderPicker).Show
Dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
 
'nombre de fichiers dans le dossier selectionné
 
NbDeFichiers Dossier, Nb&, False
MsgBox Nb: Nb = 0
 
End Sub
 
Mais pour le 3 ( ouvrir un à un tous les fichiers comptés dans le dossier) je sais pas !
Merci de bien vouloir m'aider !

Set fso = CreateObject("Scripting.FileSystemObject" )  
Set Dossier = fso.GetFolder(LeDossier)  
 
For Each fichier In dossier.Files
    If Right(fichier.Name, 3) = "xls" Then
        Workbooks.Open (fichier)
        ...
        fichier.Close
    End If
Next
 
Ca devrait fonctionner.