> 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
84,99 €SSD Samsung 870 QVO 1 To à 84,99 €
Valable jusqu'au 27 Septembre

Amazon fait une promotion sur le SSD Samsung 870 QVO 1 To qui passe à 84,99 € au lieu de 100 €. Ce SSD offre des vitesses de 560 Mo/s en lecture et 530 Mo/s en écriture. Il est garanti 3 ans.


> Voir l'offre
24,99 €Clé HDMI Fire TV Stick 2021 (Prime Video, Netflix, Disney+, Molotov, MyCanal sur votre TV) à 24,99 €
Valable jusqu'au 27 Septembre

Amazon fait une promotion sur sa nouvelle clé HDMI Amazon Fire TV Stick qui passe à 24,99 € au lieu de 39,99 €. Cette clé HDMI à brancher sur votre TV possède un processeur quadricoeur, 1 Go de RAM et 8 Go d'espace de stockage, le WiFi et le bluetooth. Avec elle, vous allez pouvoir voir facilement Prime Video, Netflix, Disney+, YouTube, Molovov, MyCanal, Spotify sur votre TV Full HD. Cette nouvelle version 2021 est compatible Alexa. Une télécommande avec des boutons pour contrôler également la TV est fournie. Elle possède des boutons pour un accès direct à Netflix, Prime Video, Disney Plus et Amazon Music.

Notez qu'il est possible de coupler un casque bluetooth avec le Fire TV Stick afin de regarder tranquillement la TV sans déranger vos proches.


> Voir l'offre
178,54 €Casque Audio Sans-fil Bose QuietComfort 35 V2 à 178,54 €
Valable jusqu'au 27 Septembre

Cdiscount fait une promotion sur l'excellent casque Audio Sans-fil Bose QuietComfort 35 V2 proposé à 178,54 € alors qu'on le trouve ailleurs à 250 €. Le QuietComfort 35 de Bose est un casque arceau circum aural sans fil au design léger et confortable offrant un son riche, clair et puissant avec la technologie Bluetooth/NFC. Grâce à sa technologie de réduction de bruit active, profitez pleinement de votre musique avec un silence inégalé pour entendre les moindres vibrations et pour des appels clairs et nets. Ce casque est livré avec un étui de transport, un adaptateur pour avion, un câble audio de secours et d'un câble de charge USB. Cette V2 intègre un assistant Google/Alexa avec un bouton dédié.


> 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