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