Pb de liste non exhaustive

[Patricia37]

Bonjour,

Dans le fichier joint, la recherche fonctionne bien mais bizarrement ne remonte qu'une partie des documents contenant le mot-clé... quelqu'un a-t-il une idée ?

Merci de votre aide

 

[pyfux]

Re : Pb de liste non exhaustive

Bonjour,

Fic.Close génère une erreur

Sub ChercheDoss(Chemin1 As String)
Dim Ligne As Long, Nom As String, FSO, Fic
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Ligne = Range("A65536").End(xlUp).Row + 1
    On Error GoTo Err1
    Nom = Dir(Chemin1 & "\*" & Range("Texte").Value & "*" & Range("Ext").Value)
    If Nom <> "" Then
        Cells(Ligne, 1).Value = Nom
        ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(Ligne, 2), Address:=Chemin1 & "\" & Nom, TextToDisplay:=Nom
        Set Fic = FSO.GetFile(Chemin1 & "\" & Nom)
        Cells(Ligne, 3).Value = CDate(Fic.DateLastModified)
        'Fic.Close
        Set Fic = Nothing
        Do
            Ligne = Range("A65536").End(xlUp).Row + 1
            Nom = Dir
            If Nom <> "" Then
                Cells(Ligne, 1).Value = Nom
                ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(Ligne, 2), Address:=Chemin1 & "\" & Nom, TextToDisplay:=Nom
                Set Fic = FSO.GetFile(Chemin1 & "\" & Nom)
                Cells(Ligne, 3).Value = CDate(Fic.DateLastModified)
                'Fic.Close
                Set Fic = Nothing
            End If
        Loop Until Nom = ""
    End If
    
Err1:
    Set FSO = Nothing
End Sub

Cette portion de codes devrait être factorisé:

Cells(Ligne, 1).Value = Nom
                ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(Ligne, 2), Address:=Chemin1 & "\" & Nom, TextToDisplay:=Nom
                Set Fic = FSO.GetFile(Chemin1 & "\" & Nom)
                Cells(Ligne, 3).Value = CDate(Fic.DateLastModified)
                'Fic.Close
                Set Fic = Nothing

 

[Staple1600]

Re : Pb de liste non exhaustive

Bonjour à tous, pyfux 😉

Patricia37
Tu pouvais suivre le conseil de Paritec dans ton fil initial... 😉
https://www.excel-downloads.com/threads/recherche-documentaire.220469/
Plutôt que de spécialement créer ce fil doublon pour joindre un fichier exemple
(fichier que tu pouvais ajouter en mode EDITION dans ton premier fil)
Au moins tu le sauras pour ta prochaine question 😉

pyfux
Pour infos 😉

Je ne maitrise pas du tout VBA, j'utilise un fichier disponible en interne

(quote du premier fil)