Discussion :

[jazziestan]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.


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

[aalex_38]

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.

[jazziestan]

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.

[aalex_38]

Bonjour,

Un exemple avec DIR :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jazziestan]

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


merci c'est génial