Fusionner 3 fichiers excel sur 1 seul global

gbstyle

XLDnaute Occasionnel
Bonjour et merci a toute les personnes pouvant m'aider

Voila, j'ai besoin pour le suivis quotidien de mettre en place un petit fichier me permettant très rapidement de suivre l'état d'avancement de quelque sujet.

L'objectif : par l'intermediaire d'un petit bouton sur un fichier nommé "PLANNING LEADER Hebdo S24"
regrouper les information sur une seule et meme page de plusieur fichier excel nommé dans l'exemple
- PLANNING LEADER L3 S24
- PLANNING LEADER L4 S24
Bien entendu j'aurai plusieurs fichier mais pour mon exemple je pense que 2 fichier sont suffisant. J'irai chercher ces fichier dans un répertoire nommé (TDB LEADER) ou seul se trouverons les fichier que je souhaite fusionner

Je vous joint des fichier exemplaire pour que vous compreniez ma demande plus précisément.

En espérant avoir un retour d'un expert je vous remercie par avance.

Gbstyle
 

Fichiers joints

Jacky67

XLDnaute Accro
Bonjour,
Classeur en pj à tester
Le chemin des classeurs tiers est à renseigner.
Les classeurs tiers doivent avoir la même structure (colonne), ce qui n'est pas le cas dans les exemples
donnés. La colonne AB vide dans le classeur "leaderL4 S24" est manquante.
Code:
Sub ConcaFichierJJ()
Dim Chemin As String, Fichier As String, derlg As Long
With Application: .ScreenUpdating = False: .Calculation = xlCalculationManual: End With
Chemin = ThisWorkbook.Path & "\TDB LEADER\"  ' ***A adapter
Sheets("Synthèse").Range("a4:ae" & Rows.Count).Clear
Fichier = Dir(Chemin)
Do While Fichier <> ""
  Workbooks.Open Filename:=Chemin & Fichier
  derlg = ThisWorkbook.Sheets("Synthèse").Cells(Rows.Count, "c").End(xlUp).Row + 1
  With Sheets("Sheet1")
    .Range("a4:ae" & .Cells(.Rows.Count, "c").End(xlUp).Row).Copy ThisWorkbook.Sheets("Synthèse").Range("a" & derlg)
  End With
  ActiveWorkbook.Close False
  Fichier = Dir
Loop
With Application: .ScreenUpdating = True: .Calculation = xlCalculationAutomatic: End With
End Sub
Edit: fichier modifié
 

Fichiers joints

Dernière édition:

Discussions similaires


Haut Bas