Private Sub copiecollesave_Click()
Application.ScreenUpdating = False
Rep = "G:\AJ\Dossier de suivi\"
FichS = ActiveWorkbook.Name
FichD = "Visio+.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:M5").Copy _
Workbooks(FichD).Sheets("BD").Range("B65536").End(xlUp).Offset(1, 0)
Workbooks(FichD).Save
Workbooks(FichD).Close
MsgBox "Base de données alimenté"
.Close
End With
Application.ScreenUpdating = True
End Sub