Programmation VBA...Help

[yu2yu2000]

Bonjour,

Je suis complètement paumé avec une programmation sous VBA.
J'ai des fichiers nommés 1.xlsx, 2.xlsx, etc. jusqu'à 251.xlsx. Ils ont tous la même mise en page.
J'ai besoin de copier des cellules des ces fichiers d'entrées dans un autre fichier ligne à ligne.

Voici le code que j'ai fait :



Sub CopierDonnees()

Dim Entree As Workbook, Sortie As Workbook

NomFichierSortie = Application.GetOpenFilename("F ichier Excel (*.xlsm), *.xslm")
If NomFichierSortie <> False Then
Set Sortie = Workbooks.Open(NomFichierSorti e)


For i = 1 to 251
Nomfichierentree = "C:\Users\burger\Desktop\3 .1c FICHES\i.xlsx"

If Nomfichierentree <> False Then
Set Entree = Workbooks.Open(Nomfichierentre e)

Sortie.Worksheets("Feuil1").Ra nge("A" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B8")
Sortie.Worksheets("Feuil1").Ra nge("B" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B9")
Sortie.Worksheets("Feuil1").Ra nge("C" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B10")
Sortie.Worksheets("Feuil1").Ra nge("D" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B11")
Sortie.Worksheets("Feuil1").Ra nge("E" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B14")
Sortie.Worksheets("Feuil1").Ra nge("F" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B15")
Sortie.Worksheets("Feuil1").Ra nge("G" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B18")
Sortie.Worksheets("Feuil1").Ra nge("H" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B24")
Sortie.Worksheets("Feuil1").Ra nge("I" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("C24")
Sortie.Worksheets("Feuil1").Ra nge("J" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("D24")
Sortie.Worksheets("Feuil1").Ra nge("K" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("E24")
Sortie.Worksheets("Feuil1").Ra nge("L" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B25")
Sortie.Worksheets("Feuil1").Ra nge("M" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B27")
Sortie.Worksheets("Feuil1").Ra nge("N" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B28")
Sortie.Worksheets("Feuil1").Ra nge("O" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B29")
Sortie.Worksheets("Feuil1").Ra nge("P" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B30")
Sortie.Worksheets("Feuil1").Ra nge("Q" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B31")

Sortie.Worksheets("Feuil1").Ra nge("S" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B42")
Sortie.Worksheets("Feuil1").Ra nge("T" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("D42")
Sortie.Worksheets("Feuil1").Ra nge("U" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B50")
Sortie.Worksheets("Feuil1").Ra nge("V" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B51")
Sortie.Worksheets("Feuil1").Ra nge("W" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B52")
Sortie.Worksheets("Feuil1").Ra nge("X" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B53")
Sortie.Worksheets("Feuil1").Ra nge("Y" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B54")
Sortie.Worksheets("Feuil1").Ra nge("Z" & 4+i) = Entree.Worksheets("Feuil2 (2)").Range("B55")

Entree.Close

End If

Next i

Sortie.Close

End If

End Sub

Il me dit que le fichier n'existe pas...en effet je n'ai pas de fichier "i.xlsx".
Du coup pour pallier ce problème, j'ai fait tourner ce code 251 fois dans le même module.... avec un message d'erreur parce que le module est trop lourd....

Merci d'avance pour votre aide
-----

[cherbe]

Il me dit que le fichier n'existe pas...en effet je n'ai pas de fichier "i.xlsx".

Remplace :

Nomfichierentree = "C:\Users\burger\Desktop\3 .1c FICHES\i.xlsx"

par

Nomfichierentree = "C:\Users\burger\Desktop\3 .1c FICHES\" & i &".xlsx"

"
Je n'ai recherché que cette erreur. Il est possible qu'il y en ait d'autres

[yu2yu2000]

merci je vais regarder ça tout de suite.

[yu2yu2000]

Le compteur fonctionne bien mais il me dit que le fichier n'existe pas ou qu'il a été déplacé. Il est bien situé dans le fichier C:\Users\burger\Desktop\3 .1c FICHES\.

Aurais-tu une idée??

[A voir en vidéo sur Futura]

[yu2yu2000]

Ca y est...ca focntionne (j'avais une erreur dans le chemin...)

Merci bcp pour ta réactivité!!