Erreur 1004 sur boucle Classeurs et onglets
Bonjour,
Je viens vers vous pour un problème sur une boucle.
Lorsque j'ai créé cette macro, elle a très bien fonctionné la première fois. Lorsque j'ai voulu réessayer, message d'erreur 1004 "nous ne trouvons pas le fichier .xlsb... Ce répertoire et ses classeurs n'ont pas été déplacés.
Je dois consolider les lignes des onglets liste de 3 classeurs diiférents A, B,C.. sur un autre classeur EXCEL
Voici le code et le fichier type joint
Sub Consolidation()
'Cells.Select
'Selection.ClearContents
Dligne = Range("A1000000").End(xlUp).Row
Chemin = "C:\Users\Onizuka666\Music\TestTroc\"
Fichier = Dir(Chemin & "*.xlsb")
Do While Len(Fichier) > 0
Workbooks.Open Fichier
'Windows("Cyril.xlsx").Activate
Sheets("Liste").Select
Derligne = Range("A1000000").End(xlUp).Row
ActiveWindow.SmallScroll Down:=-42
Range("A1:F" & Derigne).Select
Selection.Copy
Windows("ConsolidationTroc.xlsb").Activate
Dligne = Range("A1000000").End(xlUp).Row
Range("A" & Dligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Dligne = Dligne + 1
Fichier = Dir
Loop
J'y suis depuis pas mal d'heure et je ne comprends pas le problème, si quelqu'un peut m'aider...et aussi comment peut-on fermer les classeurs après la copie.
Merci d'avance pour votre aide.
Bien Cordialement.
Bonsoir,
Ton classeur ne contient pas de macro...
Range("A1:F" & Derigne).SelectCette ligne suffit à provoquer une erreur 1004 : nom de variable erroné, Derigne a la valeur 0...
En déclarant tes variables, éliminant tous les Select et autres apparentés, qualifiant tes expressions (plages par la feuille qui les contient, feuilles par les classeurs qui les contiennent) et accessoirement en indentant ton code, tu éviterais certainement bien des erreurs.
Cordialement.