bonsoir
essai ce code,
La fonction nomattendu calcule ou calculera le nom du fichier que tu souhaite traité, à voie en fonction de ton contexte
'calcule la dernière ligne
Function dernièrelg(feuille, col) ' ici on calcul la dernière ligne utilisée, col représente la colonne sur laquelle du recherche la dernière ligne
With feuille
Set k = .Cells(.UsedRange.Columns(col).Rows.Count + 1, 1).End(xlUp)
If k <> "" Then dernièrelg = k.Row + 1 Else dernièrelg = 1
End With
End Function
Sub export()
dldest = dernièrelg(Sheets("Données"), 1)
For Each cl In Workbooks
If cl.Name Like nomattendu() Then Set masource = cl
Next
With masource.Sheets(1)
dlsource = dernièrelg(.Parent.Sheets(1), 1)
Set zonecopy = .Range(.Cells(2, 1), .Cells(dlsource, 6))
zonecopy.Copy (ThisWorkbook.Sheets("Données").Cells(dldest, 1))
End With
End Sub
Function nomattendu()
nomattendu = "test -*"
End Function