Macro comment fermer les fichiers sans enregistrer

Bonjour dans le cadre de mon travail j'utilise un bouton avec une macro mais je n'ai pas les compétences pour la modifier...

Le problème : la macro ouvre plusieurs fichiers excel pour y récupérer des informations mais je souhaiterai qu'elle les referme en suivant (pour éviter que j'ai a le faire manuellement lorsque il y en a beaucoup)

Le code :

...
For Each cell In servicea.Range("C3:C105")

If cell.Offset(0, 1).Value <> 0 Then

Set rapporthebdo = Application.Workbooks.Open("chemin/etc/.xlsm").Worksheets(12)
cell.Offset(0, 2).Value = Application.WorksheetFunction.VLookup(cell.Value, rapportprod.Range("F4:G48"), 2, 0)

Set rapportmensuel = Application.Workbooks.Open("chemin/etc/.xlsx").Worksheets(4)
cell.Offset(0, 3).Value = Application.WorksheetFunction.VLookup(cell.Value, rapportflar.Range("E6:H52"), 2, 0)

Else
cell.Offset(0, 2).Value = ""
cell.Offset(0, 3).Value = ""

End If

Next cell

End Sub

Si quelqu'un a une idée

Bonjour,

A tester

ActiveWorkbook.Close SaveChanges:=False

Apres avoir récupéré tes données de rapports hebdo/mensuel ?

A+