Discussion :

[dev_php51]

Bonjour,

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

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
 
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

[casavba]

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 :

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
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

[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 :

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

1
2
 
.LookIn = "C:\Excel"

Non ?

[fring]

Non ?

Non

[Godzestla]

Non

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

Je ne comprends pas la différence

[fring]

Cela fonctionne avec ou sans la backslash en fin de chemin

Code :

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

.LookIn = "C:\"

Code :

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

.LookIn = "C:"

Je modifierais un truc dans le code

Code :

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

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

Cdlt