fonction recherche

roms38

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG