fonction recherche

[roms38]

Bonjour, ma macro d'excel 2003 ne marche plus sous 2007 j'ai essayer avec le module classefilesearch.xla mais je suis perdu.

Ci-joint mon bout a transformer
Sub rechfich()


Sheets("Recup").Activate

Cells.Select
Selection.ClearContents
Range("A1").Select


Sheets("Adress").Activate

Cells.Select
Selection.ClearContents
Range("A1").Select

With Application.FileSearch
Dim a As String

a = InputBox(Prompt:="Quel est l'adressage de ta clef USB ? ", Title:="------------------------ Remplissage ---------------------------")

'Application.ScreenUpdating = False


'DOSIIER CIBLE

.LookIn = a & ":\recuperation calypso CHR.TXT"
.SearchSubFolders = False

'extension

.Filename = "_chr.txt"
.FileType = msoFileTypeAllFiles

'Choix de la premiere cellule


If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
Range("A" & I + 1).Value = .FoundFiles(I)
Next I
End If
End With


Range("A2").Select

End Sub

Merci pour l'aide

 

[david84]

Re : fonction recherche

Bonjour,
l'objet FileSearch n'est plus supporté depuis Excel 2007.
Vois si ce lien peut t'aider.
A+