macro recherche dossier windows

[julos08]

Bonjour a tous,

Voila je cherche une macro qui analyserai mon disque dur et mafficherai dans une feuille excel tous les dossiers avec le mot clefs saisie auparavant.
Je mexplique.
Au demarrage de mon classeur une userform aparraitrai en me demandant de saisir un ou plusieur mots clefs.
Apres avoir saisie mes mots clefs il me chercherai sur le c: les dossiers et uniquement les dossiers contenant le ou les mots clefs dans son nom et me les afficherai dans une feuille excel.

D'avance merci

@++

Julos08

 

[MichelXld]

bonsoir Julos

avec quelques adaptations , le lien ci dessous pourra peut etre t'aider
( voir le message du 09-01-05 14:36 )


Lien supprimé



bonne soiree
MichelXld

 

[kloss]

Hello
Je te joins vite fait une solution. Je dis vite fait parce qu'il faut penser aux erreurs du type : la rerchercher renvoie plus de 32267 résultats (overflow), le dossier n'est pas accessible en écriture, etc.
Il faut évidemment remplacer [BACKSLASH] par le signe approprié
En espérant que ça fonctionne chez toi

++

Dim fso As Object, fld As Object, iCounter As Integer, stComp

Sub StartScan()
    'coPath est le chemin du dossier dans lequel on effectue la recherche
    Const coPath = 'C:[BACKSLASH]Documents and Settings'
    stComp = vbNullString: iCounter = 0
    Do While Len(stComp) = 0
        stComp = InputBox('Entrez le nom à chercher')
    Loop
    stComp = '*' & LCase(stComp) & '*'
    Set fso = CreateObject('scripting.filesystemobject')
    Application.Cursor = xlWait
    Call ListFld(coPath)
    Application.Cursor = xlNormal
    MsgBox 'Recherche terminée !'
End Sub

Sub ListFld(stInput As String)
On Error Resume Next
    For Each fld In fso.getfolder(stInput).subfolders
        If LCase(fld.Name) Like stComp Then
            iCounter = iCounter + 1
            ActiveSheet.Range ('A' & iCounter)
            Range('A' & iCounter).Value = fld.Path
        End If
        Call ListFld(fld.Path)
        DoEvents
    Next fld
End Sub

 

[kloss]

Je fatigue, je voulais dire :
la rerchercher renvoie plus de 32767 résultats (overflow), le dossier n'est pas accessible en
lecture, etc.

bonne nuit

 

[kloss]

Je fatigue, je voulais dire :
la rerchercher renvoie plus de 32767 résultats (overflow), le dossier n'est pas accessible en
lecture, etc.

bonne nuit

 

[kloss]

Dsl pour la réponse multiple... 😱

stComp doit être déclarée As String
La ligne

 ActiveSheet.Range ('A' & iCounter)

est à enlever

(histoire de t'éviter de chercher pourquoi elle est là...)

 

[julos08]

Merci a vous deux je vais essayé de me debrouillé avec ca je vous redirai quoi

@++

julos08

 

[julos08]

Merci klauss c exactement ce que je voulais jai plus qua remetre ca a ma sauce mais ca marche impec.

@++

julos08

 

[kloss]

de rien, n'oublie pas de libérer les variables objet, ce que j'avais oublié de faire :unsure:

++