Discussion :

[docfabius]

Bonjour à tous
je réalise des petites applications EXCEL (excel 2003) pour me faciliter le boulot.
Etant donné que je risque d'etre amené à distribuer certaines applic', je voudrais savoir s'il est possible de mettre une "durée de vie" au fichier.
J'entends par la que l'applic' ne fonctionne plus après une date que j'aurai indiqué.
Ca j'ai réussi, mais si on change la date du pc, ca refonctionne...

Connaissez vous un moyen de faire cela ?

j'ai pensé à la chose suivante mais je ne sais pas si je me trompe et encore moins si c'est possible ... merci de m'aider !

je pensais mettre une feuille en veryhidden, et executer une macro à l'ouverture du fichier. Si je mets mon systeme à une date précise (ex : le 01/01/1900) la macro ne s'exécute pas.
Sinon, a chaque ouverture la date s'inscrit mettons en A1 et est comparée à ma date limite en A2. Le jour où A1 > A2, la date s'incrit en A1 et la macro est rendue inactive.

Le bébé est entre vos mains
merci
Fab

[Oliv-]

Salut,
Voici un code a adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Const C_NUM_DAYS_UNTIL_EXPIRATION = 30
Sub TimeBombWithDefinedName()
'source:http://www.cpearson.com/excel/WorkbookTimeBomb.aspx
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' TimeBombWithDefinedName
' This procedure uses a defined name to store this workbook's
' expiration date. If the expiration date has passed, a
' MsgBox is displayed and this workbook is closed.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim ExpirationDate As String
Dim NameExists As Boolean
 
On Error Resume Next
ExpirationDate = Mid(ThisWorkbook.Names("ExpirationDate").Value, 2)
If Err.Number <> 0 Then
    '''''''''''''''''''''''''''''''''''''''''''
    ' Name doesn't exist. Create it.
    '''''''''''''''''''''''''''''''''''''''''''
    NameExists = False
    ExpirationDate = CStr(DateSerial(Year(Now), _
        Month(Now), Day(Now) + C_NUM_DAYS_UNTIL_EXPIRATION))
    ThisWorkbook.Names.Add Name:="ExpirationDate", _
        RefersTo:=Format(ExpirationDate, "short date"), _
        Visible:=False
Else
    NameExists = True
End If
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''
' If the today is past the expiration date, close the
' workbook. If the defined name didn't exist, we need
' to Save the workbook to save the newly created name.
''''''''''''''''''''''''''''''''''''''''''''''''''''''
If CDate(Now) > CDate(ExpirationDate) Then
    MsgBox "This workbook trial period has expired.", vbOKOnly
    ThisWorkbook.Close savechanges:=False
End If
 
End Sub

[docfabius]

merci beaucoup