Date limite d'utilisation d'un fichier Excel

Bonjour

Je viens de trouver votre site, il est trés trés bien.

J'ai réalisé un fichier avec Excel pour chiffrer automatiquement la fabrication d'escaliers et je voudrais quand je le prête à des collaborateurs, qu'il soit limité d'utilisation dans le temps. Pourriez vous s'il vous plait m'indiquer comment procéder.

Je vous préviens je ne suis pas un crac de l'informatique, mais bon je me débrouille comme je peux.

Avec mes remerciements, je vous adresse mes respectueuses salutations

Bonsoir et bienvenue

Une idée : Si la date du jour est le 20/01/2011 on ferme le fichier

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

Inconvénient : il faut activer les macros à l'ouverture.

Amicalement

Nad

Nad a écrit :

Bonsoir et bienvenue

Une idée : Si la date du jour est le 20/01/2011 on ferme le fichier

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

Inconvénient : il faut activer les macros à l'ouverture.

Amicalement

Nad

Merci bien Nad

Bonjour,

est ce qu'il y as la possibilité d'ajouter une message box?

Cordialement

Bonjour,

Une idée, mais il est nécessaire de connaître ton environnement de travail.

Travailles-tu en réseau? Avez-vous un login (username)? etc...

Option Explicit
Private Sub Workbook_Open()
Dim nb As Byte
Dim Utilisateur As String
' date format US
Const Date_limite As Date = #12/8/2013#
    nb = Date_limite - Date
    Select Case nb
        Case 0
            MsgBox "Mise à jour impérative." & Chr(10) & "Le fichier va se fermer."
        Case 1 To 5
            MsgBox "Mise à jour impérative dans " & nb & " jour(s)"
        Case Else
            MsgBox "Bonjour"
    End Select
End Sub

Merci pour votre réponse, pour les renseignements je ne travail pas en réseau il s'agit juste d'un fichier que j'envoi par mail toutes les fins de semaine.

J'aurais aime qu'as une date X le fichier ne puisse plus fonctionner d'ou la message box pour mettre un message d'explication.

Sinon le code fonctionne mais il y as pas de message qui s'affiche.

Private Sub Workbook_Open()

Application.DisplayAlerts = False

If Date = "20/01/2011" Then ActiveWorkbook.Close

Application.DisplayAlerts = True

End Sub

Pour votre code fournis je n'ai pas encore eu le temps de le tester.

Cdlt.