Bonsoir,
j'ai trouvé ce code sur un site web qui permet de faire une copie d'un fichier et de changer l'extension du fichier en *.bak
Dim awb As Workbook, BackupFileName As String, i As Integer, OK As Boolean
If TypeName(ActiveWorkbook) = "Nothing" Then Exit Function
Set awb =...