Bonjour ,
J'utilise cette fonction dans Excel Vb sous Microsoft XP avec
Microsoft Excel 97 SR2
Cette fonction marche parfaitement quand je l'utilise sous
Microsoft Excel 2002;
Lors de l'utilisation sous
Microsoft Excel 97 SR2 il y a une erreur signalée sur .filename quand il y a des fichiers trouvés sous le répertoire indiqué; L'erreur ne se produit pas s'il n'y a pas de fichier sous le répertoiore. L'erreur est Argument ou appel de procédure incorrect.
La différence entre les 2 Excel est probablement liée entre les références des bibli Excel, mais je n'en suis pas certain;
Si c'est le cas comment peut t'on recopier sous
Microsoft Excel 97 SR2 les références de
Microsoft Excel 2002 et y a t'il un risque
;Merci beaucoup par avance à celles ou celui qui pourra m'aider
Michel
Recherche de fichiers dont les noms commencent par "Fac"
Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "D:\Epuiset"
.FileName = "Fac*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
MS
MS