Bonjour,
Je vais essayer de faire un test de ma macro chez moi pour la débuguer, je te tiens au courant
EDIT:
Je viens de tester le code et j'ai trouvé quelques erreurs que je viens de modifier, ce code fonctionne chez moi:
Sub syntheseFichiers()
Application.ScreenUpdating = False
Dim chemin As String, fichier As String
Dim tableau As Variant
ReDim tableau(1 To 7, 0 To 0)
chemin = "C:\Users\utilisateur\Desktop\test macro\"
fichier = Dir(chemin)
While fichier <> ""
If fichier Like "*xls*" Then
ReDim Preserve tableau(1 To 7, 1 To UBound(tableau, 2) + 1)
Workbooks.Open (chemin & fichier)
For i = 2 To 14 Step 2
tableau(i / 2, UBound(tableau, 2)) = Range("a" & i)
Next i
ActiveWorkbook.Close
End If
fichier = Dir
Wend
Feuil1.Range("a2").Resize(UBound(tableau, 2), UBound(tableau, 1)) = WorksheetFunction.Transpose(tableau)
Application.ScreenUpdating = True
End Sub
J'avais mis le fichier à dépouiller dans un dossier "test macro" que j'avais placé sur mon bureau, le chemin marchait bien et a trouvé le fichier à traiter, ensuite ça a ajouté les infos au tableau puis les a retranscris dans le classeur où se trouvait le code sans souci. Fais juste bien attention à placer les fichiers dans un dossier et de bien écrire ton chemin, et ça devrait fonctionner