> Tous les forums > Forum Bureautique
 Limiter d'utilisation d'un fichier Excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
delta70
  Posté le 04/04/2013 @ 17:23 
Aller en bas de la page 
Petit astucien

Bonjour,

J’ai bloqué une petite application Excel en utilisant le code VBA suivant que j’ai trouvé dans dans un forum:

If Date > CDate("17/09/13") Then

ActiveWorkbook.Close

Else

MsgBox ("autorisé jusqu'au 17/09/13")

End If

Tout marche bien mais je veux que le message qui indique la date de la fermeture n’apparaisse qu’un mois avant la date indiquer dans le code.

Y a-t-il une solution à ça ?

Merci pour votre aide

Cordialement

Publicité
Boogie Palace
 Posté le 05/04/2013 à 11:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour,

testé sur mon poste :

Select Case Date
Case Is > CDate("17/09/2013"): ActiveWorkbook.Close SaveChanges:=False
Case CDate("17/08/2013") To CDate("17/09/2013"): MsgBox "autorisé jusqu'au 17/09/13"
End Select


on pourrait utiliser des If et ElseIf mais je suis fan du Select Case ;-)

(désolé pour les indentations manquantes, je les mets, mais elles disparaissent quand je publie le message)



Modifié par Boogie Palace le 05/04/2013 11:54
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
89,50 €SSD Crucial P2 1 To (3D NAND, NVMe, PCIe, M.2) à 89,50 €
Valable jusqu'au 29 Octobre

Amazon fait une promotion sur le SSD Crucial P2 1 To (3D NAND, NVMe, PCIe, M.2) qui passe à 89,50 € livré gratuitement. On le trouve ailleurs à partir de 125 €. Ce SSD offre des vitesses de lecture/écriture séquentielle allant jusqu’à 2 400/ 1 900 Mo/s. Il est garanti 5 ans.


> Voir l'offre
-5 €5 € de réduction immédiate dès 15 € d'achats sur les produits vendus et expédiés par Amazon
Valable jusqu'au 30 Octobre

Amazon offre actuellement 5 € de réduction immédiate dès 15 € d'achats sur les produits vendus et expédiés par Amazon. Cette offre est limitée et n'est pas valable pour tous les clients. Pour savoir si vous êtes éligible, rendez-vous sur cette page.


> Voir l'offre
79,99 €Disque dur Toshiba P300 4 To à 79,99 €
Valable jusqu'au 01 Novembre

Cdiscount propose actuellement le disque dur Toshiba P300 4 To à 79,99 €. On le trouve ailleurs à partir de 99 €. Ce disque dur interne de 4 To est SATA 6 Gbps, possède 64Mo de cache et dispose d'une vitesse de rotation de 5400 tpm.


> Voir l'offre

Sujets relatifs
report automatique date et compteur fichier excel.
Creation d' une boucle macro dans fichier EXCEL pour impression
report automatique date et compteur fichier excel.
fichier excel - gestion des nombres identiques
Fichier EXCEL ne peut s'ouvrir
Convertir fichier pdf en excel
gestion @ mail dans fichier clients Excel
Problème à l'ouverture 1 fichier EXCEL
Macro pour ouverture d'un fichier Excel
incrémenter un N° de cellule à chaque ouverture du fichier Excel
Plus de sujets relatifs à Limiter d''utilisation d''un fichier Excel
 > Tous les forums > Forum Bureautique