Backup XLSM vers Xls

Bonjour,

Je cherche une procédure afin de créer un backup automatique d'un fichier XLSM en XLS (afin de ne pas faire tourner les marcos à l'ouverture).

Le but est de créé chaque jour une copie d'un fichier XLSM pour archiver les résultats. L'idéal est que le fichier backup possède la date dans le nom.

MErci beaucoup pour votre aide.

Bonjour ofleisheuer

Le plus simple est de copier les feuilles du classeur A dans un nouveau classeur B et d'enregistrer celui-ci au format ".xlsx"

Sub Backup()
  ThisWorkbook.Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4")).Copy
  With ActiveWorkbook
    .SaveAs Filename:="C:\Temp\Test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    .Close SaveChanges:=False
  End With
End Sub

@+