Bonjour,

Voila mon problème (hors mis que je suis totalement novice en vba ) :

J'ai 1043 fichiers excel qui présente la même forme de tableau mais avec des valeurs différentes bien sûr.
J'aimerai pouvoir copier la ligne 48 de chaque fichier et les coller dans un nouveau fichier excel "ClasseurTemp.xslm"


voila le code que j'ai pondu, mais ca ne marche pas.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub copie48()
 
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
 
 
For Each wb In Application.Workbooks
i = 1
'For Each ws In wb.Worksheets
 
 
Rows(48).Select
Selection.Copy
Windows("ClasseurTemp.xlsm").Activate
Rows(i).Select
ActiveSheet.Paste
 
 
i = i + 1
 
 
'Next ws
 
Next wb
 
End Sub

Donc di quelqu'un pouvait me depanner ca serait très sympa.
merci d'avance