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

[Godzestla]

Cela fonctionne avec ou sans la backslash en fin de chemin

Merci.

[casavba]

Je ne comprends pas la différence

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.

[Godzestla]

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.