Recherche de fichier

5 réponses

Toto

16/04/2004 à 12:11

Bonjou

J'ai une liste de fichiers dans une feuille exce
Je recherche une macro permettant de rechercher ces fichiers sur mon disque dur
Ces fichiers peuvent etre presents dans plusieurs repertoire

Merc

Tot

5 réponses

Daniel.j

16/04/2004 à 12:29

Bonjour,
Une page sur ce sujet:
http://dj.joss.free.fr/fichier.htm

Daniel MVP Excel
FAQ du Forum Microsoft Public Fr Excel
http://dj.joss.free.fr/faq.htm

"Toto" a écrit dans le message de news:

| Bonjour
|
| J'ai une liste de fichiers dans une feuille excel
| Je recherche une macro permettant de rechercher ces fichiers sur mon disque dur.
| Ces fichiers peuvent etre presents dans plusieurs repertoires
|
| Merci
|
| Toto
|

Toto

16/04/2004 à 14:16

bonjou

Ca fonctionne mais par exemple pour le fichier user32.dl
le programme trouve egalement le fichier _wuser32.dl

Comment faire pour qu'il recherche uniquement user32.dl

Merc
Toto

NoMail

16/04/2004 à 14:55

Toto a écrit, Le 16/04/2004 14:16 :

bonjour

Ca fonctionne mais par exemple pour le fichier user32.dll
le programme trouve egalement le fichier _wuser32.dll

Comment faire pour qu'il recherche uniquement user32.dll

Merci
Toto
Si tu ne donnes pas le bout de ton code ça ne sera pas facile,

je suppose que tu as du mettre :
.FileName = "*" & NomFich
dans ce cas supprime le "*"

Toto

16/04/2004 à 16:16

Voici mon code

Do While Not (IsEmpty(Range("A" & NumCell)))
With Application.FileSearch
.Filename = Range("A" & NumCell) 'contient le nom de mon fichier
.LookIn = "C:"
.SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
Num = Num + 1
Range("B" & Num).Value = .FoundFiles(LstFile)
Next LstFile
End With
NumCell = NumCell + 1
Loop

----- NoMail wrote: -----

Toto a écrit, Le 16/04/2004 14:16 :

bonjour
Ca fonctionne mais par exemple pour le fichier user32.dll
le programme trouve egalement le fichier _wuser32.dll

Comment faire pour qu'il recherche uniquement user32.dll
Merci
Toto

Si tu ne donnes pas le bout de ton code ça ne sera pas facile,

je suppose que tu as du mettre :
..FileName = "*" & NomFich
dans ce cas supprime le "*"

FxM

17/04/2004 à 13:01

Bonjour,

J'ai déjà eu le cas dans des recherches avec .filesearch, il renvoit
plus ou moins ce que tu cherches. Ca peut paraître bête, mais il te faut
revérifier si ça correspond.

Un exemple :
Sub test()
nom = Sheets("Feuil1").Range("A1")
With Application.FileSearch
.Filename = nom
.LookIn = "D:inbox"
.SearchSubFolders = True
.Execute
For a = 1 To .FoundFiles.Count
if dir(FoundFiles(a)) Like nom Then
num = num + 1
End If
Next a
Stop
End With
End Sub

Au 'stop', voici les résultats :
a -> 484 (donc 483 fichiers)
num -> 457 (donc 457 pdf)

@+
FxM

Toto wrote:

Voici mon code

Do While Not (IsEmpty(Range("A" & NumCell)))
With Application.FileSearch
.Filename = Range("A" & NumCell) 'contient le nom de mon fichier
.LookIn = "C:"
.SearchSubFolders = True
For LstFile = 1 To .Execute(msoSortByFileName)
Num = Num + 1
Range("B" & Num).Value = .FoundFiles(LstFile)
Next LstFile
End With
NumCell = NumCell + 1
Loop

----- NoMail wrote: -----

Toto a écrit, Le 16/04/2004 14:16 :

bonjour
Ca fonctionne mais par exemple pour le fichier user32.dll
le programme trouve egalement le fichier _wuser32.dll

Comment faire pour qu'il recherche uniquement user32.dll
Merci
Toto

Si tu ne donnes pas le bout de ton code ça ne sera pas facile,

je suppose que tu as du mettre :
..FileName = "*" & NomFich
dans ce cas supprime le "*"

Recherche de fichier

5 réponses

Veuillez sélectionner un problème