Erreur 1004 Fichier Introuvable

[YaGo]

Bonjour,

Lors du lancement de la procédure ci-dessous, j'obtiens le message suivant:
"KV XXX.xls" introuvable. Vérifiez l'orthographe du nom du classeur et la validité de l'emplacement.

L'erreur s'effectue sur cette ligne: Set KeyValue = Workbooks.Open(WorkbookSlave)

L'orthographe est pourtant bien la bonne et le fichier esclave est situé dans le même dossier que le fichier maitre.
Pouvez-vous m'éclairer sur l'erreur que j'ai pu effectuer dans mes lignes de codes?

Option Explicit

Sub CollectRatio()
Dim WorkbookMaster As Workbook, WorkbookSlave As String
Dim Ratio, KeyValue, Table, TabTotal
Dim i As Integer, LastRowTab As Integer, Index As Integer

Set WorkbookMaster = ActiveWorkbook
Set Ratio = WorkbookMaster.Sheets("Tableau")
WorkbookSlave = Dir(ActiveWorkbook.Path & "\KV*.xls")
MsgBox "ok"
Do While WorkbookSlave <> ""
Set KeyValue = Workbooks.Open(WorkbookSlave)
Set Table = KeyValue.Sheets("Tableau")

Table.Activate
Table.Select

LastRowTab = Range("A6").End(xlDown).Row 'Dernière ligne de la base de données
TabTotal = Range("A6:V" & LastRowTab) 'Mise en place des valeurs dans le tableau
For i = LBound(TabTotal) To UBound(TabTotal)
If Len(TabTotal(i, 20)) <> 0 And TabTotal(i, 22) = "1" Then TabTotal(i, 20).Copy
Index = i
Next

Ratio.Activate
Ratio.Select

LastRowTab = Range("A6").End(xlDown).Row 'Dernière ligne de la base de données
TabTotal = Range("A6:V" & LastRowTab) 'Mise en place des valeurs dans le tableau
TabTotal(Index, 8).Paste

Application.DisplayAlerts = False
Workbooks(WorkbookSlave).Close
WorkbookSlave = Dir ' Classeur suivant
Loop
End Sub

Merci et Bonne Journée

YaGo

 

[YaGo]

Re : Erreur 1004 Fichier Introuvable

Bonjour Pierrot,

Merci pour ton aide!🙂
J'ai finalement utilisé les cellules directement afin de copier/coller mes valeurs d'un fichier à l'autre.