zebanx
XLDnaute Accro
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
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