VBA Optimisation macro transfert d'un tableau cible vers un tableau source

Bonjour à tous et à toutes,

J'essaye de me débrouiller seul mais je me tourne vers vous car j'en perds mes neurones et n'en ai plus beaucoup :)

J'ai une macro d'extraction qui fonctionne mais qui n'est pas aboutie

En effet, l'extraction n'est pas complète et il me manque des lignes (environ 10) issues du tableau source

Je sèche lamentablement depuis plusieurs jours

Le code ci-dessous :

Option Explicit

Sub EXTRACT_X_DRCL_TEST()

Dim cells As Range
Dim DerLig As Long, DLig As Long
Dim Wb As Workbook
Dim Wss As Worksheet, Ws As Worksheet
Dim chemin As String, fichier As String, Onglet As String

Application.ScreenUpdating = False
Range("A8:I300").ClearContents 'effacement des données initiales
DerLig = 8
Set Ws = ThisWorkbook.ActiveSheet
chemin = Range("D2").Value 'Fait référence ici à la cellule D2 du chemin complet vers le fichier source
chemin = chemin & "\" 'Ajoute à ce chemin un "\" pour terminer le bon chemin
Onglet = Range("I2").Value 'Fait référence ici à la cellule I2 pour l'onglet ciblé du fichier source
fichier = Dir(chemin & "*.xls") 'Cherche le fichier Excel en .xls

Do While fichier <> ""
Set Wb = Workbooks.Open(Filename:=chemin & fichier)
Set Wss = Wb.Sheets(Onglet)
DLig = Wss.cells(Rows.Count, 1).End(xlUp).Row
Ws.cells(DerLig, 1).Resize(DLig - 8, 9).Value = Wss.Range("$A$2:$J$" & DLig).Value
Wb.Close False
Application.CutCopyMode = False
DerLig = Ws.cells(Rows.Count, 1).End(xlUp).Row + 1
fichier = Dir ' Fichier suivant
Loop
End Sub

bonjour,

je soupçonne ce DLig - 8

d'être la cause du problème. tu ne prévois pas assez de place pour la copie de toutes tes lignes (je pense que cela devrait être

Dlig-1

Rapide et efficace :) Un grand merci à toi h2so4

Trop top ce forum, vous êtes pro et hyper sympa

Sujet clos :)