Fichier à l'essai 30 jours

Bonjour à tous,

J'aimerais proposer un fichier de notes de frais avec macros à l'essai 30 jours (comme j'ai vu).

comment faire.

merci

Fronck

Bonjour

Banzai a déjà répondu à une question similaire

excel/utilisation-de-fichier-limite-dans-le-temps-t26855.html

Cordialement

Bjr Amadeus,

c'est vrai j'aurais du regarder avant de questionner.

mais çà fonctionne juste le jour d'indiqué dans la macro. même avec >=, çà ouvre quand même le fichier.

Private Sub Workbook_Open()
    Application.DisplayAlerts = False
    If Date = "20/01/2011" Then ActiveWorkbook.Close
    Application.DisplayAlerts = True
    End Sub

j'ai un autre souci, je connais pas la date.

Si je laisse le fichier en ligne à un moment donné, la macro doit calculer la date du 31éme jour ou il sera fermé.

c'est bon j'ai compris comment le faire fonctionner, dans une macro existante.

 '1er jour: inscription date en P1

 Range("A1").Select
 If Range("A1") = "" Then
 Range("A1") = Now()
 Columns("O:P").Select
    Selection.EntireColumn.Hidden = True
End If

 Application.DisplayAlerts = False
If Now() - Range("A1") > 15 Then
MsgBox "votre période d'essai se termine, le fichier va se fermer"
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If