Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour consolider

  • Initiateur de la discussion Initiateur de la discussion lulu1651
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

L

lulu1651

Guest
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
 
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
 
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
 
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
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
3
Affichages
256
Réponses
10
Affichages
791
B
  • Résolu(e)
2
Réponses
16
Affichages
2 K
benbella1991
B
Réponses
11
Affichages
849
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…