'Sauvegarde pour archivage des Devis dans la Base (onglet HISTORIQUE DEVIS)
'Garder un historique des devis crées à des fins de recherches si nécessaire
Private Sub CommandButton6_Click()
Dim tablo, DL%, C%
Dim Ligne As Variant
Application.ScreenUpdating = True
Sheets("DEVIS").Select
Range("B7").Select
Application.ScreenUpdating = True
tablo = Array("B7", "C7", "D7", "E7", "E8", "F7", "F8", "F22", "E21")
With Sheets("HISTORIQUE_DEVIS")
If Application.CountIf(.[A:A], [B7]) <> 0 Then
Application.ExecuteExcel4Macro "SOUND.PLAY(,""C:\Windows\Media\Alarm10.wav"")"
Rep = MsgBox(Buttons:=vbOKCancel + vbDefaultButton2 + vbCritical, Prompt:=" N°--> " & Sheets("DEVIS").[B7] & Chr(10) & " Ce devis est déjà archivé" & vbNewLine & _
" Dois-je l'écraser ?", Title:="N° de devis déjà existant")
If Rep = vbNo Then Exit Sub
Ligne = Application.Match([B7], .[A:A], 0)
End If
If Ligne <> "" Then DL = Ligne Else DL = .Range("A65500").End(xlUp).Row + 1
For C = 1 To 1 + UBound(tablo)
.Cells(DL, C) = Range(tablo(C - 1))
Next C
MsgBox Buttons:=vbInformation, Prompt:=" L'archivage du Devis " & Chr(10) & " N°--> " & Sheets("DEVIS").[B7] & Chr(10) & _
" s'est déroulé avec succès !", Title:=" Info"
End With
MsgBox Buttons:=vbInformation, Prompt:=" L'archivage du Devis " & Chr(10) & " N°--> " & Sheets("DEVIS").[B7] & Chr(10) & _
" s'est déroulé avec succès !", Title:=" Info"
End Sub