VBA Excel - Recherche de fichiers

Question

Bonjour &#224; toutes et tous.







Je poss&#232;de un dossier contenant un certain nombre de fichiers :

-    Un fichier Visio    (*.vsd)

-    Un fichier Excel    (*.xls)

-    Un fichier Word   (*.doc)

-    Un fichier Texte   (*.txt)

-    Un fichier Image    (*.bmp)

-    Un fichier Zip        (*.zip)



Etant sous Excel 2003 (sans DirListBox, sans FileListBox), j'utilise la m&#233;thode FileSearch de l'objet Application
pour lister les fichiers d'un r&#233;pertoire donn&#233;. Et figurez-vous que &#231;&#224;
fonctionne ... presque. Je vois appara&#238;tre tous les fichiers dans ma
ListBox, sauf le fichier Zip.



Sub RechercheFichiers(sFolder As String)

'   Cette procedure recherche tous les fichiers contenus dans un r&#233;pertoire donn&#233;.

'   Elle les affiche dans une ListBox (lstFiles ).

Dim NomFichier As String

Dim nbFiles As Long



    NomFichier = "*.*"

    lstFiles.Clear

    

    With Application.FileSearch

        .NewSearch

        .LookIn = sFolder

        .SearchSubFolders = True

        .Filename = NomFichier

        .FileType = msoFileTypeAllFiles

        .MatchTextExactly = True

        If .Execute(msoSortByNone) > 0 Then

            For i = 1 To .FoundFiles.Count

                lstFiles.AddItem .FoundFiles(i)

            Next i

        Else

            MsgBox "Aucun fichier n'a &#233;t&#233; trouv&#233;."

        End If

    End With

End Sub



' Et j'ai juste un bouton qui lance tout :



Private Sub CommandButton2_Click()

Dim sTSRFolder As String

    sTSRFolder = "C:	mp"

    RechercheFichiers sTSRFolder 

End Sub







ATTENTION : Je sais comment contourner ce probl&#232;me par une autre m&#233;thode de recherche de fichiers.

Je voudrais juste avoir une explication pour ces fichiers Zip
que je ne vois pas. (Ce ne sont pas des fichiers cach&#233;s, ce ne sont pas
des zip vides). Le comportement de la m&#233;thode FileSearch me para&#238;t douteux.










Manu

----------------------------------------------

Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

jrivet · Answer

Salut,

Je viens d'essayer ton code sous Excel 2000, et je n'ai eu aucun probleme (excepté le "msoSortByNone" qui n'est pas reconnu sous 2000) 

Je suis sûr que cela ne t'apporte rien de le savoir mais ca marche sous 2000.

Voila.
Ps: ce post est en grande partie là aussi pour suivre le déroulement du problème.

econs · Answer

D&#233;trompes-toi, &#231;&#224; m'aide.

Ca permet de valider le code, et de montrer que le probl&#232;me est bien, comme je le pensais, du c&#244;t&#233; de la m&#233;thode FileSearch.



Manu

-------------------------------------------

Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Mais du coup, je cherche toujours l'explication 

Manu

-------------------------------------------

Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

us_30 · Answer

Bonsoir,

Je me suis int&#233;ress&#233; &#224; ton probl&#232;me... et j'ai pas trouv&#233; d'explication...

Pour ma part, ton code ne fonctionne pas. JE suis sous Excel 97 et Win ME.

Le blocage se fait &#224; deux niveaux. 

1. La ligne : .Filename = NomFichier
n'est pas reconnu avec "*.*", mais marche avec un "xls" par exemple. (j'ai regard&#233; dans un livre sur VBA pour Excel 2003, justement...)

2.         If .Execute(msoSortByNone) > 0 Then
ne semble pas accepter cette syntaxe, carr&#233;ment...

J'AI donc repris ton code pour voir comment je pouvais faire pour faire la m&#234;me chose... et ma solution c'est de chercher tous les types de fichiers au lieu d'utiliser *.*
Puis, l'instruction .Execute(msoSortByNone) qui semble &#233;viter la recherche dans la fin d'un repertoire, j'ai utilis&#233; On error resume next, pour poursuivre...

Voil&#224; ce que cela donne :

    With Application.FileSearch
        .NewSearch
        .LookIn = sFolder
        .SearchSubFolders = True
        .FileType = msoFileTypeAllFiles
        .MatchTextExactly = True
        .Execute msoSortByFileType
        On Error Resume Next
            For i = 1 To .FoundFiles.Count
                UserForm1.ListBox1.AddItem .FoundFiles(i)
            Next i
    End With

et l&#224;, cela fonctionne alors... et les zip sont reconnus au m&#234;me titre que les autres...

R&#233;flexion ?!
En fait, je suis &#233;tonn&#233; d'&#234;tre oblig&#233; de changer ton code pour que cela fonctionne sous Excel 97... SI tu essayes mon code, et que cela fonctionne, faut-il conclure que l'emploi de "*.*" pour .Filename est d&#233;faillante ? j'ai aussi remarquer (mais c'est peut &#234;tre normal, bien que curieux) que si j'emploi .Filename "zip" (ou autre, comme "txt") , alors tous les noms de fichiers portant "zip" dans le nom ou dans l'extension sont recenss&#233;s... c'est pas super, &#224; moins de faire une recherche ensuite sur l'extension...

Voil&#224;, en esp&#233;rant avoir peut-&#234;tre un indice...

Amicalement,
Us.

cs_doctorO · Answer

Bonjour,


sur Excel 97, pour faire marcher la commande de recherche de fichiers specifiques en utilisant Application.Filesearch.Filename, il faut ajouter le caractere "" dans la chaine de recherche et ne pas utiliser de "*".....  c'est  tres etrange


Exemple :

    With Application.FileSearch
        .NewSearch
        .FileName = "\.zip"
        .LookIn = "C:"
        .SearchSubFolders = False
        .MatchTextExactly = True
        .FileType = msoFileTypeAllFiles
        If .Execute() > 0 Then
            MsgBox "Ce dossier contient " & .FoundFiles.Count & _
                " fichier(s) répondant aux critères."
            For i = 1 To .FoundFiles.Count
                MsgBox .FoundFiles(i)
            Next i
        Else
            MsgBox "Aucun fichier n'a été trouvé."
        End If
    End With

Pour faire une recherche sur la chaine "*B*.zip" par exemple, il faut mettre

        .FileName = "\B.zip"
Lo logique est curieuse....

De plus sous Windows XP il faut desactiver le service qui lit les archives Zip en tant que repertoire

A+
DoctorO

facknrask · Answer

bon on va continuer dans l'aberant

moi j'ai une macro qui fonctionne niquel sous Excel 2000 (et teste sous excel 2003) avec Windows 2000 pour la chose suivante :
recherche des fichiers qui s'appelle *.dat

Public Function FIND_DAT_FILE(ByVal Folder_DAT As String) As Integer
Dim I As Integer
Application.StatusBar = "Debut calcul nombre de fichier a traiter"
Set fs = Application.FileSearch
With fs
    .LookIn = Folder_DAT
    .FileName = "*.dat"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        FIND_DAT_FILE = .FoundFiles.Count
        ReDim Dat_file_list(.FoundFiles.Count)
        ReDim Dat_file_scanner_name(.FoundFiles.Count)
        For I = 1 To .FoundFiles.Count
        Dat_file_list(I) = .FoundFiles(I)
            If InStr(1, Dat_file_list(I), GNIQ_Dat, vbTextCompare) <> 0 Then
            GNIQ_Pos = InStr(1, Dat_file_list(I), "GNIQ")
            Dot_Dat_Position = InStr(1, Dat_file_list(I), ".dat")
            Dat_file_scanner_name(I) = Mid(Dat_file_list(I), GNIQ_Pos + Len(GNIQ_Dat), Dot_Dat_Position - (GNIQ_Pos + Len(GNIQ_Dat)))
            Else
            Dat_file_scanner_name(I) = "Autres"
            End If
        Next I
    Else
        'MsgBox "There were no files found."
    End If
End With
Application.StatusBar = "Fin calcul nombre de fichier a traiter"
End Function

Si je la lance sous Excel 97 la ligne suivante 
    .FileName = "*.dat"
ne marche pas avec erreur : Run-Time error '5' : Invalid procedure call or argument 
suite a vos remarques, j'ai essaye de mettre la ligne     .FileName = "/.dat" et il met seulement ".dat" dans fs.filename (vu via la local windows) sans le / mais il ne trouve pas de fichier s'appelant .dat !!!!!

mais j'ai essaye plus tordu 
j'ai essaye de remettre le *.dat dans le filename apres avoir mis la ligne /.dat et la plus d'errreur Run-Time error '5' : Invalid procedure call or argument et le filename prend bien le *.data (vu via la local windows)
mais il ne trouve toujours pas de fichier s'appelant .dat !!!!!

Pourquoi il ne trouve pas !!!
he he he j'ai compris
parce qu'il faut faire la chose suivante :

l'ordre que j'avais choisi n'est pas correct suit je pense a un bug Excel 
Set fs = Application.FileSearch
With fs

    .LookIn = Folder_DAT

    .FileName = "/.dat"
    .FileName = "*.dat"

    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then

il faut mettre 

    .LookIn = Folder_DAT apres les filename car si on le met avant le bug reinitialise le repertoire de recherche a la racine c:\  ???? (vu avec le suivi des variables via la locals Windows dans VBA)

Set fs = Application.FileSearch
With fs

    .FileName = "/.dat"

    .FileName = "*.dat" (n'est pas indispensable sous 2000 car le / marche sous aussi sous Excel 2000 mais apres verif sous Excel 2003 le / ne marche pas, merci Bill Gate !!!)


    .LookIn = Folder_DAT

    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then

En gros pour mettre un Wildcard * dans un Application.FileSearch compatible a la fois sous Excel 2000, 97 et 2003 il faut mettre la lignejuste ci-dessous
Set fs = Application.FileSearch
With fs

    .FileName = "/.dat"

    .FileName = "*.dat" (indispensable pour une compatibilite totale des Excel


    .LookIn = Folder_DAT

    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then

MaaaaaaaaGiiiiiiiiiiiiqueeeeeeeeeeee

archiifk · Answer

bonjour,
je ne mitrise pas les listbox.
chez moi l'execution bute sur l'instruction
lstFiles.Clear
erreur d'execution '424': Objet requis

--- que manque t il ? --- 

par ailleur j'ai essaye la fonction suivante mais là il n'y a aucun fichier qui apoparait dans la boite à liste

Sub test_selDos()
 ' Attention FileDialog n'étant pas reconnu dans excel 2000 et versions
 '           antérieures cette macro ne fonctionne qu'avec les versions 2002 et +.
 '
 ' Attention le "" à la fin de la ligne de commande est essentiel.
   MsgBox SelDossier("D:\a_PRIVE	oto")
End Sub


Function SelDossier(Defaut As String)
'd'après "Nicolas", mpfe
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
    .InitialFileName = Defaut
    If .Show = -1 Then
        SelDossier = fd.SelectedItems(1)
    End If
End With
Set fd = Nothing
End Function

--- ??? --- 

MsoExcel 2003
Windows XP
archiifk

archiifk · Answer

bon  j'ai trouvé : en fait le code de econs ou celui de us_30 doit être placé dans un UserForm et non dans un module.

de plus il faut précéder listbox du nom de la userform. 

Ainsi j'ai placé ce code dans la UserForm2 ce qui me donne : 



'Propriétés 
'VBAProject(PERSO.XLS)\Feuilles\UserForm2
'Name = UserForm2
'
Private Sub UserForm_Initialize()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub CommandButton1_Click()
     Dim fnc As String
     Dbg = True
     Dim sTSRFolder As String
     
fnc = "CommandButton1_Click() _ "
     
    sTSRFolder = "D:\a_PRIVE	oto"
' function de econs ci-dessous : cela fonctionne
    Call RechercheFichiers(sTSRFolder) 
    If Dbg Then
        MsgBox (fnc & " premiere recherche de fichier passée")
    End If
' function de us_30  placée dans le module 5 
' (VBAProject(PERSO.XLS)\Modules\Module5): 
' cela fonctionne aussi
    RechercheFichiers2 (sTSRFolder)    
    If Dbg Then
        MsgBox (fnc & " seconde recherche de fichier passée")
    End If
End Sub

Private Function RechercheFichiers(sFolder As String)
' Cette procedure recherche tous les fichiers 
' contenus dans un répertoire donné.
' Elle les affiche dans une ListBox (lstFiles).
     Dim fnc As String
     Dbg = True
     Dim sTSRFolder As String
     
fnc = "RechercheFichiers(" & sFolder & ") _ "

    Dim NomFichier As String
    Dim nbFiles As Long

    'lstFiles.Clear
'ajout de UserForm2. sinon erreur 424 objet requis !!!
    UserForm2.ListBox1.Clear 
    
    With Application.FileSearch
        .NewSearch
        .LookIn = sFolder
        .SearchSubFolders = True
        .Filename = NomFichier
        .FileType = msoFileTypeAllFiles
        .MatchTextExactly = True
        If .Execute(msoSortByNone) > 0 Then
            For i = 1 To .FoundFiles.Count
                UserForm2.ListBox1.AddItem .FoundFiles(i)
                'lstFiles.AddItem .FoundFiles(i)
                If Dbg Then
                 MsgBox (fnc & .FoundFiles(i))
                End If
            Next i
        Else
            MsgBox "Aucun fichier n'a été trouvé."
        End If
    End With
    
End Function


archiifk

VBA Excel - Recherche de fichiers

8 réponses

Discussions similaires