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
Merci d'avance
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
Partager