Private Sub RgptEval_Click()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i, k As Integer
Dim xls As New Excel.Application
Dim FeuilleSource As Excel.Worksheet, FeuilleCible As Excel.Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.getfolder(ThisWorkbook.Path)
Set Files = Dossier.Files
k = 3
If Files.Count <> 0 Then
For Each File In Files
If File.Name <> "Synthèse Evaluation Formation.xlsm" And File.Name <> "~$Synthèse Evaluation Formation.xlsm" Then
Set FeuilleSource = xls.Workbooks.Open(File.Path).Worksheets("Eval")
Set FeuilleCible = ActiveWorkbook.Worksheets("RgptEval")
With FeuilleSource
.Range(.Cells(22, 9), .Cells(43, 9)).Copy
End With
With FeuilleCible
.Range(.Cells(6, k), .Cells(27, k)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False
End With
Set xls = Nothing
Set FeuilleSource = Nothing
Set FeuilleCible = Nothing
xls.Quit
k = k + 3
End If
Next
End If
Set fso = Nothing
Set Dossier = Nothing
end sub