Sub Sauvergarde()
'
Dim i As Byte
Dim Chemin As String, NomFichier As String
' Chemin = "t:\Data\Sorties\"
Chemin = ThisWorkbook.Path & "\..\..\Data\Sorties\"
NomFichier = "Devis " & [Code] & " - " & [Firme] & " - " & [Sujet]
If Dir(Chemin & NomFichier & " (*).xlsm") = "" Then
If Dir(Chemin & NomFichier & ".xlsm") = "" Then
ThisWorkbook.SaveAs Chemin & NomFichier & ".xlsm"
End If
Else
i = 1
While Dir(Chemin & NomFichier & " (" & i & ")" &...