Erreur 1004 - fichier source déplacé

Bonjour à tous,

J'ai utilisé une macro pour compiler plusieurs fichiers Excel en un seul.

Tout se passait bien jusqu'à quand je décide de déplacer mon fichier Excel.

J'ai pourtant bien vérifié les chemins d'accès mais je rencontre l'erreur, la fameuse, 1004 qui me présente toutes ses excuses car ne retrouve pas les éléments.

Voici le bout concerné dans ma macro initiale :

    ChDir "C:\Users\XXX\Downloads\testCSV"
    NomClasseur = Dir("C:\Users\XXX\Downloads\testCSV\*.xlsx")
    While Len(NomClasseur) > 0
        Application.DisplayAlerts = False
        Workbooks.Open NomClasseur
        LigneTotal = ActiveSheet.UsedRange.Rows.Count
        Range("A2:W" & LigneTotal).Copy
        Workbooks("Outil_Final.xlsm").Worksheets("csv").Activate
        Derligne = Worksheets("csv").UsedRange.Rows.Count + 1
        Range("A" & Derligne).Select
        Worksheets("csv").Paste
        Range("X" & Derligne & ":X" & Worksheets("csv").UsedRange.Rows.Count) = NomClasseur
        Range("Y" & Derligne & ":Y" & Worksheets("csv").UsedRange.Rows.Count) = Now
        Worksheets("csv").Range("A:Y").Columns.AutoFit
        Workbooks(NomClasseur).Close
        NomClasseur = Dir
    Wend

Voici la nouvelle (j'ai enlevé le "chDir" qui ne sert à rien):

    NomClasseur = Dir("D:\Dropbox\XXX\testCSV\*.xlsx")
    While Len(NomClasseur) > 0
        Application.DisplayAlerts = False
        Workbooks.Open NomClasseur
        LigneTotal = ActiveSheet.UsedRange.Rows.Count
        Range("A2:W" & LigneTotal).Copy
        Workbooks("Outil_Final.xlsm").Worksheets("csv").Activate
        Derligne = Worksheets("csv").UsedRange.Rows.Count + 1
        Range("A" & Derligne).Select
        Worksheets("csv").Paste
        Range("X" & Derligne & ":X" & Worksheets("csv").UsedRange.Rows.Count) = NomClasseur
        Range("Y" & Derligne & ":Y" & Worksheets("csv").UsedRange.Rows.Count) = Now
        Worksheets("csv").Range("A:Y").Columns.AutoFit
        Workbooks(NomClasseur).Close
        NomClasseur = Dir
    Wend

Par avance merci pour toute suggestion !

Très bonne journée !

Bonjour

Et l'erreur arrive sur quelle ligne ?

Cordialement

Ca peut aider effectivement!

L'erreur arrive sur l'ouverture du fichier, soit :

Workbooks.Open NomClasseur

bonjour,

bonjour Dan,

mets le chemin complet dans l'instruction workbooks.open. Nomclasseur ne contient que le nom du fichier (pas le chemin)

Workbooks.Open "D:\Dropbox\XXX\testCSV\" & NomClasseur

Bonjour h2so4,

Merci pour ton aide, cela fonctionne parfaitement.

Très bonne journée!