Private Sub CommandButton1_Click()
Dim la_date As String
Dim l_heure As String
Dim v_bon As String
Dim n_serie As String
Dim NomUsager as String
Application.ScreenUpdating = False
NomUsager = Application.UserName
' With Worksheets("Contrôle")
' On Error Resume Next
' Sheets("Contrôle").Unprotect Password:="TOTO", UserInterfaceOnly:=True
'
' Derligne = .Range("A65536").End(xlUp).Row + 1 'on détecte la derniere ligne vide
' .Cells(Derligne, 1) = Format(Date, "dd/mm/yyyy") 'ici on mets la date du Jour
' .Cells(Derligne, 2) = Format(Time, "HH:MM:SS") 'ici on met l'heure réelle
' .Cells(Derligne, 3) = NomUsager 'ici le Nom du User
' .Cells(Derligne, 4) = Feuil3.Range("$T$3") 'ici la valeur du bon
' .Cells(Derligne, 5) = Feuil3.Range("$P$10") & (" ") & Feuil2.Range("$B$15") 'ici le N° de série enregistré
' Sheets("Contrôle").Protect Password:="TOTO", UserInterfaceOnly:=True
' End With
la_date = Format(Date, "dd/mm/yyyy")
l_heure = Format(Time, "HH:MM:SS")
v_bon = Feuil3.Range("$T$3")
n_serie = Feuil3.Range("$P$10") & (" ") & Feuil2.Range("$B$15") 'ici le N° de série enregistré
Trace_IMPRESSION "Utilisateur: " & NomUsager & _
" |Impression: le : " & la_date & " | à: " & l_heure & " | " & _
"Valeur: " & v_bon & " | " & "N° serie : " & n_serie
Application.ScreenUpdating = True
End Sub