Erreur 1004 sur workbooks.open

Bonjour,

J'essaye de créer un code pour copier dans plusieurs fichiers excel quelques cellules puis les coller dans un second fichier excel (d'où je lance la macro).

Pas de soucis pour compter les fichiers présents dans le dossier qui contient les fichiers excel et celui de la macro ni pour la boucle.

Le problème arrive au moment d'ouvrir avec workbooks.open, il me dit qu'il ne trouve pas le fichier excel source alors que le chemin et le nom du fichier correspondent bien au premier des fichiers source.

Je ne comprends d'où vient le problème "Erreur d'exécution 1004, désolé nous ne trouvons pas fichier.xlsx. Peut être vous l'avez déplacé, renommé ou supprimé"

Alors que la variable FSISource prend bien le nom du fichier quand je passe la souris dessus en mode débogage.

Voilà l'extrait du code:

Dim Chemin As String

Dim rep As String
Dim nbfichier As Integer
Dim Fichier As Variant 'chemin du fichier source
Dim FSISource As Workbook 'fichier source

'Compte le nombre de fichiers dans le repertoire
Chemin = ThisWorkbook.Path & "\"
rep = Dir(Chemin & "*.xlsx")
While Not rep = ""
nbfichier = nbfichier + 1
rep = Dir
Wend
MsgBox ("nb de fichiers xlsx présents= " & nbfichier)

 'boucle de lecture des fichiers du repertoire
i = 2
For x = 1 To nbfichier
'Boucle sur tous les fichiers xlsx du répertoire.
    Fichier = Dir(Chemin & "*.xlsx")
       'Workbook.Open (FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
    'ouverture
    Set FSISource = Workbooks.Open(Fichier, False, True)

J'ai essayé plusieurs définitions de variables mais rien a faire et vu que je ne suis pas spécialiste je sèche ...

Quelqu'un a une idée ?

Bonjour sukhoi37, bonjour à tous

Remplace ta dernière ligne en ajoutant le chemin :

Set FSISource = Workbooks.Open(Chemin & Fichier, False, True)

Bon courage

Parfait ça s'execute!

Je me suis fait avoir avec le "Filename" je ne pensais pas devoir rajouter le chemin d'accès...

Problème résolu.