Please Help sur VBA
Fermé
raffimarseille
Messages postés
28
Date d'inscription
samedi 2 février 2002
Statut
Membre
Dernière intervention
9 mars 2003
-
25 mars 2002 à 12:19
Marmot Messages postés 579 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 17 août 2006 - 25 mars 2002 à 20:42
Marmot Messages postés 579 Date d'inscription lundi 14 janvier 2002 Statut Membre Dernière intervention 17 août 2006 - 25 mars 2002 à 20:42
1 réponse
Marmot
Messages postés
579
Date d'inscription
lundi 14 janvier 2002
Statut
Membre
Dernière intervention
17 août 2006
69
25 mars 2002 à 20:42
25 mars 2002 à 20:42
Recherche de fichiers dont les noms commencent par "Fac"
Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "D:\Epuiset" .FileName = "Fac*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
J'ai trouvé mon bonheur sur http://dj.joss.free.fr et dans la collection de liens qu'il propose
Sub ChercheFichier()
Set fs = Application.FileSearch
With fs
.LookIn = "D:\Epuiset" .FileName = "Fac*"
If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) ont été trouvés."
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles(I)
Next I
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
J'ai trouvé mon bonheur sur http://dj.joss.free.fr et dans la collection de liens qu'il propose