Sub FilesImport()
Application.ScreenUpdating = False ' Ecran figé
Application.DisplayAlerts = False ' Ne pas afficher message d'alerte à l'ouverture de fichier distant
On Error GoTo Fin
Sheets("résultat souhaité").[A4:Z10000].ClearContents ' A adapter
DL = [A65500].End(xlUp).Row ' Dernière ligne
For L = 5 To DL
If Cells(L, "B") = "YES" And Cells(L, "C") <> "" Then
Chemin = Cells(L, "C") ' Récupération du chemin
tablo = Split(Chemin, "\") ' Séparation des paramètres
NomFichier = tablo(UBound(tablo)) ' Récupération du nom du fichier
Application.StatusBar = "Traitement du fichier : " & Chemin
Workbooks.Open Filename:=Chemin ' Ouverture du fichier cible
DL2 = Workbooks(NomFichier).Sheets("NEED 1").[A65500].End(xlUp).Row ' Dernière ligne fichier cible
Données = Workbooks(NomFichier).Sheets("NEED 1").Range("A5:Q" & DL2) ' Copie des données dans array
Workbooks(NomFichier).Close False ' Fermeture du fichier cible
DL3 = 1 + Sheets("résultat souhaité").[A65500].End(xlUp).Row ' dernière ligne du tabeau
' Restitution des données à la fin du tableau existant.
Sheets("résultat souhaité").Range("A" & DL3).Resize(UBound(Données, 1), UBound(Données, 2)) = Données
End If
Next L
Application.StatusBar = ""
Application.DisplayAlerts = True
Exit Sub
Fin:
MsgBox "Une erreur a été rencontrée."
Application.DisplayAlerts = True
Application.StatusBar = ""
End Sub