Bonjour,

J'ai à ma disposition 304 fichiers Excel nommés Contact(1), Contact(2), ...Contact(304)

Chaque fichier contient un seul onglet portant le même nom que le fichier.
Je souhaite récupérer le contenu des cellules allant de A2 à I51 de chaque fichier et les regrouper en un seul fichier.

Voici après plusieurs recherches le code que j'ai essayer d'utiliser, en l'adaptant à mon besoin bien sûr :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub test3()
Dim Fich As String, Ligne As Double
Fich = Dir("C:\Contacts\*.xls")
Do While Fich <> ""
Ligne = Range("a51").End(xlUp).Row + 1
Workbooks.Open "C:\Contacts\" & Fich
Range("A2", Range("I51").End(xlUp)).Copy _
ThisWorkbook.Sheets(1).Cells(Ligne, 1)
ActiveWorkbook.Close False
Fich = Dir
Loop
End Sub
Le nombre total de lignes dans mon fichier final est inférieur à ce que je devrais obtenir.

Merci d'avance à toute personne pouvant me venir en aide, soit en voyant d'où vient l'erreur, soit en me guidant vers une autre piste.

Pierre