Bonjour,
s'il vous plait , jai une petite application qui a une date d'expiration . je ne voudrais pas
que l'utilisateur déregle la date du système , c'est à dire date du PC.
donc pour ça, jai inserré un datepicker dans le ficher excel dans cellule B4.
Voic donc le code
Private Sub Workbook_Open()
Dim expirydate As Date
Dim DTPicker1 As Date
expirydate = "22/02/2023"
DTPicker1(Range("B4")).Value = Date
If Date < expirydate Then
Frmcode.Show
je voudrais que la valeur de la cellule B4 tient lieu de date d'aujourdui
s'il vous plait , jai une petite application qui a une date d'expiration . je ne voudrais pas
que l'utilisateur déregle la date du système , c'est à dire date du PC.
donc pour ça, jai inserré un datepicker dans le ficher excel dans cellule B4.
Voic donc le code
Private Sub Workbook_Open()
Dim expirydate As Date
Dim DTPicker1 As Date
expirydate = "22/02/2023"
DTPicker1(Range("B4")).Value = Date
If Date < expirydate Then
Frmcode.Show
je voudrais que la valeur de la cellule B4 tient lieu de date d'aujourdui