Discussion :

[charles_bois]

Bonjour,

Je voudrais importer plusieurs plages de cellules de plusieurs fichiers excel (6 exactement). les fichiers sources sont identiques, seul le nombre de ligne peut varier. Le but est donc de consolider 6 fichier identiques dans un seul.
Je ne sais pas trop comment m'y prendre.
comment definir le nombre de ligne à importer et comment le faire sur plusieurs fichier et que toutes les données se mettent à la suite, sans se superposer?
Les 6 fichiers ont toujours le même nom.
Comment faire cette importation sans avoir à ouvrir les sources sachant que le fichier consolidé et les souces sont dans le même dossier

Merci de votre aide

[Fvandermeulen]

Bonjour,
Ce petit problème m'intéresse mais quelques précisions...
Vous ne voulez pas de liaisons ?
Avez vous pensé à passer par Access ?

Sans quoi j'ai une petite idée mais j'aimerais la tester et là j'ai plus trop le temps

[AlainTech]

Les classeurs sources ont-ils une structure de base de données, c'est-à-dire, en colonnes avec des en-têtes différents pour chaque colonne?

[charles_bois]

Merci de vos réponses, mais passer par access n'est pas envisageable
Les 6 tableaux sont strictement identiques, même nb de colonne, même formating, même titre, seul le nd de ligne varie. Le but est donc de créer une macro qui consolide les 6 bases à la suite sur une même base.

Voila ce que je viens d'essayer mais ça ne semble pas fonctionner

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Sub ImportFichier()
 
Dim consolide As String
 
 
consolide = ActiveWorkbook.Name
 
'extraction France
 
Workbooks("France.xls").Activate
Sheets("11.CAPEX détail").Activate
 
Cells(1, 4).Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Workbooks(consolide).Activate
Sheets("Capex détail import").Activate
Cells(1, 4).Select
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
 
'extraction Espagne
 
Workbooks("Spain.xls").Activate
Sheets("11.CAPEX détail").Activate
 
Cells(1, 4).Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Workbooks(consolide).Activate
Sheets("Capex détail import").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
 
'extraction Italie
 
Workbooks("Italy.xls").Activate
Sheets("11.CAPEX détail").Activate
 
Cells(1, 4).Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Workbooks(consolide).Activate
Sheets("Capex détail import").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
 
'extraction Pologne
 
Workbooks("Poland.xls").Activate
Sheets("11.CAPEX détail").Activate
 
Cells(1, 4).Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Workbooks(consolide).Activate
Sheets("Capex détail import").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
 
'extraction Russie
 
Workbooks("Russia.xls").Activate
Sheets("11.CAPEX détail").Activate
 
Cells(1, 4).Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Workbooks(consolide).Activate
Sheets("Capex détail import").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
 
'extraction Roumanie
 
Workbooks("Romania.xls").Activate
Sheets("11.CAPEX détail").Activate
 
Cells(1, 4).Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Workbooks(consolide).Activate
Sheets("Capex détail import").Activate
ActiveSheet.Paste
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
 
End Sub

Autre question peut on utiliser vba pour faire une somme matricielle de plages de cellules figées. cad sommer 6 tableaux identiques dans mon fichier consolidé. le résultat sera aussi du meme format

Merci de votre aide