> 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


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