Question pour les pros... ;-)

[Routrout]

J'aimerais faire une macro qui irait vérifier si la valeur contenue dans la cellule A1 de tous les fichiers excels d'un répertoire (contenant lui meme un tas de sous-répertoire contenant des fichiers excels) est plus basse que 1.

Si oui, mettre le chemin d'accès de ce fichier dans un tableau.

Est-ce possible?

 

[Ti]

tu fais une recherche de tous les fichiers Excel avec l'objet FileSearch et ensuite tu appliques une des méthodes souvent documentées ici (il y en a qui datent de ces derniers jours, postées par Thierry) pour récupérer des valeurs d'un fichier fermé. Et voilà.

 

[Routrout]

Comment fonctionne l'objet FileSearch? Pourrais-je avoir un exemple svp ...

Merci

 

[Thierry]

Salut Routrout

Trouvé sur l'aide....

Exemple File search Objet Excel :
With Application.FileSearch
.LookIn = "c:\my documents"
.FileType = msoFileTypeExcelWorkbooks
.Execute
End With

Exemple FileSearch Office Objets :
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

Ou encore...
With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.FileName = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With

et pour la partie de recherche sur le classeur fermé, voir cette ficelle récente :
<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=6802&t=6790>

Bon aprèm.
@+Thierry

 

[Ti]

ah ben ! tu m'as évité un copier-coller Thierry !