Discussion :

[housemiouzic]

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

[helios77]

J'ai pas testé mais çà devrait mieux fonctionner à mon avis
Avant de faire un copier de ta ligne 48, il faut activer le classeur en question, sinon il reste sur le classeuractuelle donc, il te copie certainement des lignes vides

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
 
Sub copie48()
 
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
 
 
For Each wb In Application.Workbooks
i = 1
wb.Activate
Rows(48).Select
Selection.Copy
Windows("ClasseurTemp.xlsm").Activate
Rows(i).Select
ActiveSheet.Paste
 
 
i = i + 1
 
Next wb
 
End Sub

[housemiouzic]

merci de ta réponse, j'ai testé, la macro se lance bien sans erreur, mais elle ne copie pas ce que je lui demande.

au final j'obtiens une sélection des ligne 1 à 40, je comprend pas pourquoi...

[JackOuYA]

Bonsoir,housemiouzic

Il y as encore des choses pas terribles dans ton code, les selects et activate... l'intialisation de ta variable i, pas au bon endroit à mon sens..

On manque un peu d'infos, alors je considére ,en lisant ton code,que tous les classeurs à traiter sont ouvert, et l'on copie la ligne 48 de tous les feuilles de ces classeurs. J'ai rajouté un filtre sur le nom du classeur afin de ne pas traiter des classeurs autre (style macro..)

voici le code à mettre dans un module de ton classeur résultat, il récupére les lignes 48 et les placent dans sa feuille 1.

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
Sub copie48()
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
i = 1
For Each wb In Application.Workbooks 'Je considére que tous les classeurs à traiter sont ouvert
 If Not (wb Is ThisWorkbook) Then  ' Je ne traite pas le fichier contenant la macro
    If wb.Name Like "Classeur*" Then 'Je ne traite que les classeurs dont le nom commence par w
    Debug.Print "Traite :" & wb.Name
    For Each ws In wb.Worksheets 'boucle dans les feuilles du classeur
        ws.Rows(48).Copy ThisWorkbook.Sheets(1).Rows(i) 'Copie vers ce classeur (celui où l'on trouve ce code)
        i = i + 1
     Next
   End If
 End If
Next wb
End Sub

[housemiouzic]

excellent ca marche !! merci beaucoup, connaitrez-vous une méthode qui me permet de ne pas ouvrir les classeurs à traiter, mais juste a indiquer le chemin du répertoire?