Bonjour,

Dans le cadre d'un petit travail, je dois consolider (juste copier-coller, pas de calcul) le second onglet de 5 fichiers excels différents.

Le template de ce second onglet suit exactement le même format dans les 5 classeurs.

Le problème que je rencontre c'est que sur cet onglet, il y a un tableau de 8 colones jusqu'à la ligne 50, puis un second tableau 6 colonnes à partir de la ligne 60 et un autre tableau 15 colonnes à partir de la ligne 1000 et on me demande de ne pas changer la mise en forme

J'aimerais créer le code suivant:

Boucle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range (A6:H20) Select
Copier coller
Calcul du nombre de ligne
les mettre à la suite
Cela sur les 5 fichiers excell


Ensuite une seconde boucle
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range (A21:F56)
Copier coller
Calcul du nombre de ligne
les mettre à la suite
Cela sur les 5 fichiers excell

etc....


Pouvez-vous me dire svp où son mes fautes:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
'Déclaration de variable
Dim NomduClasseur As String
Dim LigneTotal As Integer
Dim DerLigne As Integer
 
 
Sub Consolider()
 
'Stoppe l'actualisation de l'écran. Cela sert à masquer les actions de la macro
 
Application.ScreenUpdating = False
 
'Parcourir l'ensemble tous les fichiers du dossier (il y en a 7)
ChDir C:\Users
NomduClasseur = Dir("C:\Users\eeeeeeee\*xlsx")
' On boucle pour cherche tous les classeurs (7)
While Len(NomduClasseur) > 0
     Workbooks.Open NomduClasseur
     LigneTotal = ActiveSheet.UsedRange.Rows.Count
     Range("B12:P32" & LigneTotal).Copy
     Workbooks("ConsolidationVF.xlsm").Activate
     DerLigne = ActiveSheet.userandge.Rows.Count + 1 'on recherche la dernière ligne vide
     Range(" B" & DerLigne).Select
     ActiveSheet.Paste
     Workbooks(NomduClasseur).Close
     NomduClasseur = Dir
Wend
 
'Maintenant,j'aimerais ,pouvoir créer le code pour aller chercher les donné à compter de la ligne 50 de mes template générique et les ajouter à partir de la ligne 100 sur mon onglet consolidation
 
     Workbooks.Open NomduClasseur
     LigneTotal = ActiveSheet.UsedRange.Rows.Count
     Range("B32:P80 & LigneTotal").Copy
     Workbooks("ConsolidationVF.xlsm").Activate
     DerLigne = ActiveSheet.userandge.Rows.Count + 1 'on recherche la dernière ligne vide
     Range(" B100 & DerLigne").Select
     ActiveSheet.Paste
     Workbooks(NomduClasseur).Close
     NomduClasseur = Dir
 
 
 End Sub