Discussion :

[Pastouk]

Bonjour les amis,

Je cherche à copier tout les fichiers excel d'un dossier X dans un seul ficher excel sous deux formes:

- une feuille pour chaque fichier copié et collé en renommant cette feuille avec la date ou le texte affiché dans le cellule affiché dans la cellule E3
- copier tous les fichiers dans une même cellule en laissant un espace de 2 colonnes entre chaque fichier collé .

Est ce que ça se fait à l'aide d'une Macro? Si oui, avez vous des pistes pour effectuer cette tâche?

j'ai essayé ceci pour un seul fichier mais je pense qu'il faut créer une boucle pour passer tout les fichiers du dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub ccooppyy()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook
 Sheets.Add After:=ActiveSheet
   ActiveSheet.Name = Worksheets("feuil1").Range("e3")
Chemin = "C:\Users\ys\Documents\Rapports\aout2018\"
Fichier = Dir("C:\Users\ys\Documents\Rapports\aout2018\*" & Worksheets("feuil1").Range("e3").Text & "*.xls")
Set Wb = Workbooks.Open(Chemin & Fichier)
Range("A1:AA500").Copy Workbooks("Classeur1").ActiveSheet.Range("A1:AA500")
Wb.Close
 
End Sub

Merci d'avance

[kiki29]

Salut, à voir : Fusion de fichiers Excel XLS (3). Il en existe 2 variantes plus anciennes.
Fusion de fichiers Excel XLS (2)
Fusion de fichiers Excel

Mode d'Emploi

Il est probable qu'il faille personnaliser le code généraliste de l'appli. A toi de voir.