Bonjour,
Comme beaucoup, j'essaie d'adapter une macro qui fonctionne sous excel 2003 adaptée d'un exemple
trouver, en son temps, sur la facq mais non réactualisée, à excel 2010.
J'ai lu le document de SilkyRoad, téléchargé les fichiers; coché dans macro complémentaire Classefilesearch
et dans VBAProject ClFileSearch. Dans mon code, j'ai remplacé FileSearch par ClasseFileSearch.
Pourtant ma macro ne fonctionne toujours pas
Cette macro sert à compter le nombre de photos se trouvant dans un fichier placé sur le bureau
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub ListerUnRépertoire()
Set fs = Application.ClasseFileSearch
    With fs
        .LookIn = "C:\Users\Annecy\Desktop\Base\"
        .FileType = msoFileTypeAllFiles
        If .Execute(SortBy:=msoSortByFileName, _
        SortOrder:=msoSortOrderAscending) > 0 Then
            MsgBox "Ce dossier contient " & .FoundFiles.Count & _
                " fichier(s) répondant aux critères."
            For i = 1 To .FoundFiles.Count
                If Right(LCase(.FoundFiles(i)), 4) = ".jpg" Then _
                    MsgBox i '.FoundFiles(i)
            Next i
           Else
            MsgBox "Aucun fichier n'a été trouvé."
        End If
    End With
End Sub
Je vous remercie de vous pencher sur mon problème
Bien cordialement - GROBIN