1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Sub import_analyse()
Application.ScreenUpdating = False: Application.DisplayAlerts = False
Dim Fichier As String, Chemin As String, v As Long, tablo As Variant, Wb As Workbook, dernlig As Long
Chemin = ThisWorkbook.Path & "\Analyse\"
Fichier = Dir(Chemin & "*.xls")
Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)
dernlig = Cells(Rows.Count, 1).End(xlUp).Row - 16 'ici tu detecte la ligne limite de ton tableau a copier
tablo = Range("A12:k" & dernlig) 'copie du tableau voulu dans la variable tablo
Wb.Close False: Set Wb = Nothing 'ici tu ferme le classeur que tu viens d'ouvrir pour copier la plage desirée
With Sheets(1)
v = IIf(v < 12, 12, .Cells(Rows.Count, 1).End(xlUp).Row + 1) 'recherche de la premiere ligne de libre a la suite dans le classeur central
.Cells(v, 1).Resize(UBound(tablo, 11)) = tablo 'maintenant on place le tableau a partie de la cellule (v,1)en dimensionnant avec la dimention du (tablo)
End With
Fichier = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub |
Partager