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
-----