[E-03] Liste fichier

Version imprimable

Bonjour,

j'ai un probleme sous Excel 2003
mon code se deroule bien mais il ne trouve aucun fichier..??

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub test()
With Application.FileSearch
    .LookIn = "C:\Excel"
    .Filename = "*.*"
    .FileType = msoFileTypeExcelWorkbooks
    .Execute
End With
 
With Application.FileSearch
    If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For I = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(I)
        Next I
    Else
        MsgBox "There were no files found."
    End If
End With
End Sub

Merci d'avance

As tu vérifié que le répertoire que t'as mentionné contient des fichiers (C:\Excel).

Le code fonctionne bien.

réessaie comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
With Application.FileSearch
    .LookIn = "C:\"
    '.Filename = "*.*"
    .FileType = msoFileTypeAllFiles 'msoFileTypeExcelWorkbooks
    .Execute
      If .Execute() > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For I = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(I)
        Next I
    Else
        MsgBox "There were no files found."
    End If
 
End With

14/10/2008, 10h19
Godzestla
Bonjour,

de prime abord sans avoir jamais utilisé ce type de code, il me semble qu'il manque un \ à la fin de cette ligne.
Code:

1 2 .LookIn = "C:\Excel"
Non ? :?
14/10/2008, 10h25
fring

Citation:

Envoyé par Godzestla

Non ? :?

Non ;)
14/10/2008, 10h29
Godzestla

Citation:

Envoyé par fring

Non ;)

Et dans l'exemple donné par Casavba (C:\) ça marche ou pas alors ?

Je ne comprends pas la différence :aie:
14/10/2008, 10h35
fring
Cela fonctionne avec ou sans la backslash en fin de chemin

Code:

.LookIn = "C:\"

Code:

.LookIn = "C:"

Je modifierais un truc dans le code
Code:

1 2 3 For I = 1 To .FoundFiles.Count Debug.Print .FoundFiles(I) Next I
pour éviter de devoir cliquer 117x sur le bouton OK de la MsgBox :mouarf:

Cdlt
14/10/2008, 10h42
Godzestla

Citation:

Envoyé par fring

Cela fonctionne avec ou sans la backslash en fin de chemin

Merci.
14/10/2008, 12h00
casavba

Citation:

Je ne comprends pas la différence :aie:

Godzesta, l'antislash en fin de chemin n'est pas nécessaire.
Je dirais même qu'il ne faut pas le mettre.

Explication :
La propriété FileSearch renvoie un objet FileSearch pour utilisation avec des recherches de fichier, elle est disponible uniquement dans Microsoft Windows.
Partant de là, l'antislash comme tu le sais certainement est le séparateur de dossiers sous Windows.
Parconséquent, dans l'exemple de dev_php51, la recherche s'effectue dans le Dossier Excel qui est un sous-dossier de C:
Il est donc judicieux d'indiquer le Chemin : C:\Excel et non C:\Excel\.

Renseigner C:\Excel, suffit puisqu'on se positionne bien dans le dssier Excel pour faire la recherche.
D'ailleurs dans l'exemple que j'ai donné, il faut mettre C: au lieu de C:\ si on veut appliquer parfaitement les règles.

J'espère avoir été clair.

Voilà, mais celà n'empêche que ta remarque est pertinente, et Fring a bien répondu.
14/10/2008, 12h14
Godzestla

Citation:

Envoyé par casavba

Godzesta, l'antislash en fin de chemin n'est pas nécessaire.
Je dirais même qu'il ne faut pas le mettre.

D'ailleurs dans l'exemple que j'ai donné, il faut mettre C: au lieu de C:\ si on veut appliquer parfaitement les règles.

J'espère avoir été clair.

Oui. merci pour ces détails. :king: