macro pour consolider

[lulu1651]

Bonjour,

J'ai 3 Fichiers excels avec les même colonnes :
- Suivi des appels Hotline_ADCO v0.3.xls
- Suivi des appels Hotline_EROS v0.3.xls
- Suivi des appels Hotline_FRTH v0.3.xls
que je dois consolider dans un autre fichier CONSO.xls

Comment dois je faire pour créer une macro qui me consolide mes données de mes 10 fichiers?
J4ai fais la macro automatique, voici le code :

Windows("Suivi des appels Hotline_ADCO v0.3.xls").Activate
Range("A2:T500").Select
Selection.Copy
Windows("CONSO.xls").Activate
ActiveSheet.Paste
Range("A5").Select
Windows("Suivi des appels Hotline_EROS v0.3.xls").Activate
Range("A2:T500").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CONSO.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Windows("Suivi des appels Hotline_FRTH v0.3.xls").Activate
Range("A2:T500").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CONSO.xls").Activate
Range("A8").Select
ActiveSheet.Paste

La macro fonctionne mais mon soucis c'est que lorsque dans mon fichier "Suivi des appels Hotline_ADCO v0.3.xls" j'ai 2 lignes de copiées, lorsque ca me copie les données du fichier "Suivi des appels Hotline_EROS v0.3.xls" ca me les copies à la ligne A5 au lieu de la ligne A3. Comment je peux automatiser ceci dans mon code?

Merci

 

[TOFatJOB]

Re : macro pour consolider

Bonjour,

ajoute ce code avant chaque ActiveSheet.Paste

dl = Range("a65536").End(xlUp).Row 'dernière ligne utilisée
Range("a" & dl & "").Select

le collage se fera à la première ligne libre

 

[lulu1651]

Re : macro pour consolider

merci pour votre réponse.

Lorsque je le colle avant chaqye .paste cela marche pas trop.
Ca m'efface ma ligne d'en tete et j'ai une valeur que ca ne m'a pas copiée...

Windows("Suivi des appels Hotline_ADCO v0.3.xls").Activate
Range("A2:T500").Select
Selection.Copy
Windows("CONSO.xls").Activate
dl = Range("a65536").End(xlUp).Row 'dernière ligne utilisée
Range("a" & dl & "").Select
ActiveSheet.Paste
Range("A5").Select
Windows("Suivi des appels Hotline_EROS v0.3.xls").Activate
Range("A2:T500").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CONSO.xls").Activate
dl = Range("a65536").End(xlUp).Row 'dernière ligne utilisée
Range("a" & dl & "").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Windows("Suivi des appels Hotline_FRTH v0.3.xls").Activate
Range("A2:T500").Select
Application.CutCopyMode = False
Selection.Copy
Windows("CONSO.xls").Activate
Range("A8").Select
dl = Range("a65536").End(xlUp).Row 'dernière ligne utilisée
Range("a" & dl & "").Select
ActiveSheet.Paste

 

[lulu1651]

Re : macro pour consolider

je vous joints mes fichiers :
je dois consolider mes deux fichiers pour l"onglet S1 dans le fichier conso sur l"onglet S1... je dois faire de même sur tous les onglets...

Quel code me permet de réaliser la consolidation que je souhaite? Merci

 

[TOFatJOB]

Re : macro pour consolider

bonjour,

tu peux regarder la macro5

on suppose que tous les fichiers sont ouverts.