macro recherche fichier

[julos08]

Bonjour a tous,

J'ai une macro qui me trouve dans mon lecteur c: tous les dossiers portant le nom que je saisie prealablement ( merci a klauss).

voila la macro

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

Sub StartScan()
'coPath est le chemin du dossier dans lequel on effectue la recherche
Const coPath = 'C:\\'
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

Range('A' & iCounter).Value = fld.Path
End If
Call ListFld(fld.Path)
DoEvents
Next fld
End Sub

Maintenant si cest possible jaimerai que le texte quil maffiche dans mes cellules est un lien me permetant d'ouvrir le dossier contenant
par exemple je fai une recherche pour nouveau dossier dans c:, dans mes cellules de la colonne A il maffiche tous les dossiers quil trouve portant ce nom et se trouvant dans le c:
jaimerai que quand je clic sur une des cellules il mouvre le dossier dans windows.

Merci a tous

@++

julos08

 

[ChTi160]

re
avant d'aller au dodo
un fichier de mimi je ne sais plus ou je l'ai téléchargé [file name=lister_fichiers_browseforfolderV03.zip size=16007]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/lister_fichiers_browseforfolderV03.zip[/file]

Message édité par: ChTi160, à: 11/03/2005 23:36

 

[ChTi160]

re pour tester

Bonne Nuit

hmy:

Message édité par: ChTi160, à: 11/03/2005 23:44