TheLio
XLDnaute Accro
Hello Tous,
J'ai ici quelques lignes de codes qui permettent d'identifier la personne qui s'aprête à Imprimer un document "valeur", L'idéal serait de bloquer toutes possibilités d'impression tant que l'utilisateur n'a pas cliqué sur le bouton...
A l'écoute de toutes vos suggestions...
Bonne journée
Lionel
J'ai ici quelques lignes de codes qui permettent d'identifier la personne qui s'aprête à Imprimer un document "valeur", L'idéal serait de bloquer toutes possibilités d'impression tant que l'utilisateur n'a pas cliqué sur le bouton...
Code:
Private Sub CommandButton1_Click()
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
Application.ScreenUpdating = True
End Sub
Bonne journée
Lionel