Discussion :

[magalie0210]

Bonjour à tous,

Est ce quelqu'un aurait sous la main une macro qui permet de:
- copier le contenu de plusieurs feuilles Excel (ayant le même nom) issues de plusieurs classeurs (avec nom différent) sur un autre fichier Excel vierge
- le contenu de chacune des feuilles se colleraient les unes à la suite des autres pour obtenir une synthèse en quelque sorte

merci d'avance pour votre aide et bon week end

[Jean-Philippe André]

Bonjour,

la philosophie du forum est de t'aider à pêcher, et non de pêcher pour toi.

Peux-tu nous dire si tu as déjà essayé des lignes de code ? ont-elles été des échecs ?

Plusieurs éléments sont disponibles dans la

https://excel.developpez.com/faq/?pa...ouveauClasseur

https://excel.developpez.com/faq/?pa...reLigneNonVide

[magalie0210]

Bonjour,

on m'a déjà fourni un début de code..mais ca ne fonctionne pas surement parce que je code pas bien les infos à savoir :
tous les fichiers Excel sont intitulés de cette manière: "date & nom du fichier & nom d'une entité & .xlsm"
l'onglet à copier à le même nom sur tous les fichiers Excel
et le but est de copier les infos de chaque fichier les un après les autres sur un autre classeur mais je n'y arrive pas!



Sub test()
Dim myDir As String, fn As String
Application.ScreenUpdating = False
myDir = "C:\Travail\Blabla\Toto"
fn = Dir(myDir & "\*.xlsx*")
Do While fn <> ""
With Workbooks.Open(myDir & "" & fn).Sheets(1)
.Cells(1).CurrentRegion.Copy ThisWorkbook.Sheets(1).Range("a" & Rows.Count).End(xlUp)(2)
Application.CutCopyMode = False
.Parent.Close False
End With
fn = Dir
Loop
Application.ScreenUpdating = True
End Sub

[Philippe Tulliez]

Bonjour,

Est ce quelqu'un aurait sous la main une macro qui permet de:
- copier le contenu de plusieurs feuilles Excel (ayant le même nom) issues de plusieurs classeurs (avec nom différent) sur un autre fichier Excel vierge
- le contenu de chacune des feuilles se colleraient les unes à la suite des autres pour obtenir une synthèse en quelque sorte

Si le but est de placer dans une même table, le contenu provenant de plusieurs feuilles ayant le même nom et provenant de plusieurs classeurs se trouvant dans un même répertoire et ce à condition que les données aient la même structures (titre des colonnes identique) alors il est préférable de se tourner vers Power Query intégré à Excel (onglet [Données], groupe Récupérer et transformer les données ). Bien plus simple à appréhender et plus rapide à développer que le VBA.