VBA-Résolu: ouvrir tous les XLS du répertoire sf activeWks (ie : car dans Wbk + contient macro)

[zebanx]

Bonjour,

Je cherche à ouvrir Tous les fichiers XLS d'un répertoire concernant le fichier courant (ouvert et qui contient la macro à lancer).
Le code fonctionne mais il ne "PASSE" pas le fichier courant (msgbox "si vous ouvrez....").

Pourriez-vous svp corriger ce code ?

Sub ChercheetOuvreFichier()
Dim fichier As Object
Set fichcherche = Application.FileSearch

With fichcherche
.LookIn = ThisWorkbook.Path
.Filename = "*.xls"

If .Execute > 0 Then
MsgBox .FoundFiles.Count & " Fichier(s) a (ont) été trouvé(s)."

For i = 1 To .FoundFiles.Count
On Error Resume Next
If fichier.Name <> ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(i)
On Error GoTo 0
End If
Next i
Else
MsgBox "Aucun fichier n'a été trouvé."
End If
End With
End Sub
--------------

Merci par avance, cdlt
thierry

Sinon : Une macro pour ouvrir Tous les fichiers fonctionne mais je ne sais pas l'adapter pour n'ouvrir que les XLS.

Sub Openfile()
Dim dossier As Object, fichier As Object
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
For Each fichier In dossier.Files
If fichier.Name <> ThisWorkbook.Name Then
Workbooks.Open (fichier)
End If
Next fichier
End Sub

 

[pierrejean]

Re

A tester:

Sub Openfile()
Dim dossier As Object, fichier As Object
Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path)
For Each fichier In dossier.Files
If fichier.Name <> ThisWorkbook.Name And InStr(fichier.Name, ".xls") <> 0 Then
Workbooks.Open (fichier)
End If
Next fichier
End Sub

 

[zebanx]

Merci Pierre-Jean

Pour ce code qui fonctionne parfaitement ! Et quelle célérité -)

Cdlt
thierry