utilisation de lookin

[phil75016]

Bonjour

J'ai l'habitude d'utiliser le code suivant pour ouvrir tous les fichiers d'un répertoire pour aller y pecher des informations. Tout fonctionne sur mon poste avec excel 2003 mais sur mon poste avec excel 2007 l'instruction lookin ne fonctionne pas :

Dim lCount As Long
Dim wbResults As Workbook
Dim wbCodeBook As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False

Sheets("test").Select

On Error Resume Next

Set wbCodeBook = ThisWorkbook

With Application.FileSearch
.NewSearch
'Change path to suit
.LookIn = "c:\local\test2"
.Filename = "* - dossier fiscal 2008.xls"
.FileType = msoFileTypeExcelWorkbooks
.Execute (msoSortByFileName)
'.Filename = "Book*.xls"

If .Execute > 0 Then 'Workbooks in folder
For lCount = 1 To .FoundFiles.Count 'Loop through all.
'Open Workbook x and Set a Workbook variable to it
Set wbResults = Workbooks.Open(Filename:=.FoundFiles(lCount), UpdateLinks:=0)
Sheets(1).Select
....
Merci de m'aider

 

[Guest]

Re : utilisation de lookin

Bonjour Phil,

Deux choses:

1 - il y a un sous forum Excel 2007 ici pour poser toutes les questions relatives à cette version.

2 - en faisant une recherche avec les mots "FileSearch" et "2007" dans ce forum tu aurais trouvé des réponses.

Bonnes recherche.

A+

 

[phil75016]

Re : utilisation de lookin

Merci, j'avais fait une recherche avec "lookin" sans trouver ma réponse. Donc les outils de recherche sont biens si l'on entre les bons mots clés!