Ouvrir plusieurs fichiers xls d'un dossier.

Bonjour,

débutante en vba je cherche à ouvrir plusieurs fichiers xls contenus dans un seul dossier pour ensuite les copier sur un autre classeur.

J'ai déjà une grosse partie du code mais j'ai un problème car ma boucle s'exécute toujours sur le premier fichier xls de mon dossier au lieu de l'exécuter et ensuite continuer sur les autres fichiers comme je le voudrais !

Voici mon bout de code :

Call Repertoire

Dim a As String
Dim b As String
Dim objFSO, objDossier, objFichier
Dim chemin As String
Dim fichier As String
a = "S" & IsoWeekNumber(Date)
b = Format(Date, "YYYY")
chemin = Path & "\Data\xls\historique\" & a & "_" & b & "\"
fichier = Dir(chemin & "*.xls")

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDossier = objFSO.getfolder(chemin)
Set objFichier = objDossier("*.xls").Files

If Me.CommandButton_synthesis.Visible = True Then
Workbooks.Open Path & "\Management\Versions_PERE\Templates\securite.xls"
End If
If (objDossier.Files.Count > 0) Then
For Each objFichier In objDossier.Files
If (InStr(1, objFichier.name, ".xls", 1) > 0) Then
objFichier = objFichier + 1
Workbooks.Open Filename:=chemin & fichier
Worksheets(a & "_" & b).Select
Worksheets(a & "_" & b).Copy after:=Workbooks("securite.xls").Worksheets("securite")
End If
Next objFichier ' ne passe pas au projet .xls suivant
End If
End Sub


Voilà j'espère que vous saurez m'aider !
Merci d'avance. si besoin de plus d'explications n'hésitez pas !