Re : Importer des données de plusieurs classeurs
Excuse
voici le code fini
Sub MAJ()
Dim classeurSource As Workbook, classeurDestination As Workbook, Fichiers, Filtre$, i%, DerLigne As Long
Feuil1.Rows("2:40000").ClearContents
Set classeurDestination = ThisWorkbook
Fichiers = Application.GetOpenFilename(Filtre, 1, "Sélection des fichiers", , True)
If IsArray(Fichiers) = False Then Exit Sub
For i = LBound(Fichiers) To UBound(Fichiers)
Set classeurSource = Application.Workbooks.Open(Fichiers(i))
DerLigne = classeurSource.Sheets("Saisie CR").Range("b" & Rows.Count).End(xlUp).Row
classeurSource.Sheets("Saisie CR").Range("b6:q" & DerLigne).Copy
classeurDestination.Sheets("Saisie CR").Range("b" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
classeurSource.Close False
Next
End Sub
Encore merci
Bobjazz