Pb de liste non exhaustive

Patricia37 · 23 Mai 2014

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 · 24 Mai 2014

Re : Pb de liste non exhaustive

Bonjour,

Fic.Close génère une erreur

Code:

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é:

Code:

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 · 24 Mai 2014

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)

Pb de liste non exhaustive

Patricia37

Guest

Pièces jointes

pyfux

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires

Pb de liste non exhaustive

Patricia37

Guest

Pièces jointes

pyfux

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency