utilisation de lookin

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

phil75016

XLDnaute Junior
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
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
518
Réponses
3
Affichages
587
Réponses
1
Affichages
1 K
Retour