problème de version

Bonjour,


J'ai un code qui passe en excel 2002 et pas en excel 2003. vous pouvez me dire ce que je dois modifier pour qu'il passe en 2003 SVP

voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

dim chemin as string   chemin="D:\bonjour\"   With Application.FileSearch .NewSearch .LookIn = chemin .SearchSubFolders = False .Filename = "INV" .MatchTextExactly = False .FileType = msoFileTypeAllFiles If .Execute() > 0 Then a = .FoundFiles.Count End If End With

---

en 2002, il trouve le fichier mais pas en 2003.


?????????????????

:help:

Sur les dernières versions excel FileSearch n'est plus implémenté.

Il y a de nombreux exemples, notamment en passant par une classe pour contourner ce problème.

ici comme tu ne parcours pas les sous-dossiers, regarde du côté de Dir.

j'ai regardé et je ne trouve pas

je m'explique : j'utilise déjà le getattr dans le test d'éxistance d'un fichier mais là je dois tester l'existance de tous les fichiers contenant "INV"

J'ai repris l'aide microsoft sur la version 2003 et il connait filesearch mais visiblement il y a un problème dans l'application de ce filesearch donc je continue à chercher

si vous avez une solution pour moi elle est la bien venue.

Bonjour,

Un exemple avec DIR :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub test_copieI() Dim Nomc As String Dim tabrep() As String Dim i As Integer, K as integer Dim result As String i = 0 Nomc = "C:\XXX\YYYl\" ' Mettre ici le chemin   Repertoire = Dir(Nomc & "*INV*", vbDirectory) ReDim Preserve tabrep(i) tabrep(i) = Repertoire   Do While Len(Repertoire) > 0 i = i + 1 Repertoire = Dir() ReDim Preserve tabrep(i) tabrep(i) = Repertoire Loop   Dim Mess As String For k = 0 To UBound(tabrep) result = Dir(tabrep(k), vbDirectory) ' <> "" Mess = Mess & tabrep(k) & vbCrLf Next k   MsgBox Mess   End Sub

---

mais pourquoi n'y ais je pas pensé plus tôt????????????????????
:zoubi:

merci c'est génial
:ccool: