Private Sub copiecollesave_Click()
Application.ScreenUpdating = False
Rep = "K:\XXX\Reporting"
FichS = ActiveWorkbook.Name
FichD = "reception.xls"
Workbooks.Open Rep & FichD
With Workbooks(FichS)
Fichier = .Sheets("Récapitulatif").Cells(1, 1).Value
If Dir(Rep & Fichier & ".xls") <> "" Then 'vérifie si la sauvegarde n'a pas déjà été effectuée
MsgBox "La sauvegarde a déjà été effectuée"
Exit Sub
End If
.Sheets("Récapitulatif").Range("A2:S5").Copy _
Workbooks(FichD).Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(FichD).Save
Workbooks(FichD).Close
.SaveAs Filename:=Rep & Fichier & ".xls"
MsgBox "Votre fichier a été sauvegardé avec succès sous le nom : " & Chr(10) & Fichier & Chr(10) & "A l'adresse suivante: " & Chr(10) & Rep & Fichier, vbOKOnly
.Close
End With
Application.ScreenUpdating = True
End Sub