Equivalent instruction Filesearch pour exel 2010

[phil46]

Bonjour,
J'ai une macro utilisant la fonction FileSearch qui fonctionne parfaitement en version 2003 et plus en version 2010.
Pouvez vous m'indiquer un équivalent de programmation ci-dessous

7:
Set fs = Application.FileSearch
With fs
numtest = "CD-" & Affaire & "-" & Num
.LookIn = repert
.Filename = numtest
If .Execute > 0 Then
Num = Num + 1
GoTo 7
Else
Range("E19") = "CD-" & Affaire & "-" & Num
dernum = Num
End If
End With

D'avance merci
Philippe

 

[Pierrot93]

Re : Equivalent instruction Filesearch pour exel 2010

Bonjour,

regarde dans l'aide vba du coté de la fonction "Dir", il y a un exemple qui pourra certainement te servir.

bonne journée
@+