Copier/coller x fichiers et y onglets dans 1 seul fichier

Bonjour,

J'ai un léger souci. autant j'arrive à fusionner plusieurs fichiers contenant 1 onglet dans un seul fichier, j'arrive aussi a copier plusieurs onglets d'un fichier dans un seul onglet autant je n'arrive pas a combiner les 2 en faisant un macro.

D ou mon besoin d'aide.

Donc j'ai 1 classeur excel par site (donc au final plus de 100 classeurs). tous les classeurs sont identiques.

Dans chaque classeur, j'ai pleins d'onglets. Ils sont différents les uns des autres en terme de format et de nom.

J'ai besoin de consolider toutes ces informations dans un dernier classeur récapitulatif.

Donc toutes les informations contenues dans les onglets portant le même nom doivent être copiées dans un seul onglet récapitulatif.

Dans mon exemple tous les onglets "TabvInfo" de tous les classeurs doivent être copiés dans un seul onglet "TabvInfo" récapitulatif, de même pour les onglets "TabvCPU" (j'ai 15 autres onglets dans la réalité).

Le nombre de lignes est aléatoire.

Je met en PJ 2 classeurs d'exemple de site.

J'ai déjà réussi à compiler le 1er onglet avec le code ci dessous mais je sèche pour les autres.

Sub recup()
Range("A1").Select
Chemin = "Y:\I&P-Domaine-Serveur-Stockage\Pole_Standardisation\Projet inventaire\Outils_Inventaire_VM\RVTools\Rapports\Rapports\"
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Sheets("TabvInfo").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
ThisWorkbook.Activate
ActiveSheet.Paste
Windows(Fichier).Activate
Application.CutCopyMode = False
ActiveWorkbook.Close savechanges:=False
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Fichier = Dir ' Fichier suivant
Loop
End Sub

Bonsoir

Un essai

Changes le chemin

Bonjour,

Merci bcp! Ca marche a la perfection! Merci, 1000 fois!!