Microsoft 365 Fusion de plusieurs plages excel dans un fichier de synthèse

[psaintva]

Bonjour,

Je dois compiler plusieurs tableaux dans des fichiers distincts (6 dans ce cas) dans un seul fichier (et idéalement à la suite) pour effectuer des tris et une synthèse sur l'ensemble des données (en l'occurrence ici du personnel et le nombre d'heures travaillées par jour). L'avantage c'est que mes tableaux ont les mêmes structures, mais pas le même nombre de lignes.

J'ai essayé le copier-coller spécial ou de compiler les données mais ce n'est pas très efficace.

J'ai tenté la macro suivante mais rien ne se passe dans mon fichier test.

Sub recup()
Range("A1").Select 'sélectionner la cellule de début
Chemin = "Z:\COMMUN\9.MATERIAUX\9.8 POINTAGE\2021\01-janvier\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.xls") ' Premier fichier
Do While Fichier <> ""
Workbooks.Open Filename:=Chemin & Fichier
Range("Zone_copiee").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

Les différents fichiers sont de la forme suivante (voir PJ) et je ne voudrais copier dans chaque fichier que la feuille contenant le personnel vers mon fichier test.

Auriez-vous une autre macro ou alors une solution pour ma macro ici présente ?


Merci d'avance à vous tous !!

 

[Dudu2]

Merci bcp pour cet exemple que tu as pris le temps de réaliser.
Je vais regarder de près.
C'est effectivement Power... Full

 

[Dudu2]

Le nombre d'affichages des fichiers joints me semble assez foireux.
Il reste à 0 sur ton fichier ce qui est faux évidemment.