Période d'essai

Bonjour,

Cette macro est positionnée sur une page Acceuil pour que quand la période d'essai est terminée, on ne puisse plus y avoir accés et changer de page.

Mais elle ne fonctionne plus et j'aimerais comprendre pkoi :

Private Sub Worksheet_Activate()
Dim dat1 As Date, dat2 As Date, ajout As Variant
   dat1 = Now()
    ajout = 10 'Ajout de 10 jours
    dat2 = DateAdd("d", ajout, dat1)
    MsgBox dat1 & " " & dat2
If dat1 > dat2 Then
MsgBox "La période d'essai se termine, Veuillez contacter l'éditeur. Merci."
Sheets("x").Activate
End If
End Sub

En mettant des secondes à la place des jours avec s, la msgbox prend une la position de départ, mais comme çà change pas de page au bout de 10 secondes, çà marche pas.

Merci

Cdt

bonjour,

dat2 devrait être la date de la première utilisation + un certain nombre de jours et non pas la date du jour + un certain nombre de jours (la condition dat1>dat2 ne sera jamais vraie, dans ce cas).

Bonjour,

Ok merci.

J'aimerais essayer une variable à true/ false, mais je suis pas sur que relançant la même macro, on puisse la voir à false aprés le 1er passage.

Seule solution que je connaisse, c'est écrire dans la feuille en format invisible "t'es dèjà passé une fois,c'est bon !".

 Dim i%, j%, k%, drn%, drn5%, drnAt%, drn1%, ate%, nom$, cpt1%, ws As Worksheet
    Set ws = Sheets("Acceuil")
    Dim dat1 As Date, dat2 As Date, ajout As Variant
If ws.Range("B12") <> "ok" Then
    ajout = 10 'Ajout de 10 jours
    dat1 = Now()
    dat2 = DateAdd("s", ajout, dat1)
    ws.Range("B12") = "ok"
    ws.Range("B13") = dat2
'format invisible
        Range("B12:B13").Select
    Range("B13").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
End If
If Now() > ws.Range("B13") Then
MsgBox "La période d'essai se termine, Veuillez contacter l'éditeur. Merci."
Sheets("ecole").Activate
End If

Merci