Enregistrer 2 fois un classeur en VBA

Option Explicit

Const Path As String = 'K:\\\\\\\\Mes Documents\\\\\\\\DevisMie\\\\\\\\'
Const Libel1 As String = 'AGENCE DE xxxxxxxxxxxxxx'
Const Libel2 As String = 'Adresse xxxxxxxxxxxxxx'


Sub Remise_à_Zéro()
Dim NameNew As String
Dim Compteur As Integer



With Sheets('DevisSD')
    NameNew = .Range('B10') & '.xls'
    Compteur = .Range('F17')
    .PrintOut Copies:=2
End With

ThisWorkbook.SaveCopyAs Path & NameNew ' <-- C'est ici que l'on sauve une Copie !!
   
With Sheets('DevisSD')
    .Range('C1') = Libel1
    .Range('C2') = Libel2
    .Range('F17') = Compteur + 1
    .Range('D8:G11,C17:C18,A20:E36,F20:G36').ClearContents
End With
   
  With ThisWorkbook
    .Save
    '.Close 'Si nécessaire
  End With
   
   
End Sub

Cliquez pour agrandir...