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

psaintva

XLDnaute Nouveau
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 !!
 

Pièces jointes

  • Saisie pointage J@DE COSSON _concassage.xlsx
    345.7 KB · Affichages: 26

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 852
dernier inscrit
dthi16088