Aller au contenu

Récupérer les jours d'essai restants avec VBA

Cette fonction VBA vous permet de récupérer par programmation le nombre de jours ou d’exécutions restants pour un classeur en version d’essai. Elle fonctionne également pour les clés enregistrées qui ont une date d’expiration ou un nombre limité d’exécutions.

👉 Insérez la fonction suivante dans un module VBA :

Public Function ReadTrialState()
    Dim XLSPadlock As Object
    On Error GoTo Err
    Set XLSPadlock = Application.COMAddIns("GXLSForm.GXLSFormula").Object
    ReadTrialState = XLSPadlock.PLEvalVar("TrialState")
    Exit Function
Err:
    ReadTrialState = ""
End Function

Vous pouvez ensuite appeler la fonction :

Sub Test_Trial()
 rdays = ReadTrialState()
 Worksheets("Sheet1").Range("A1").Value = rdays
End Sub

👉 Voir aussi : Comment créer des classeurs en version d’essai