Bloquer impression sur une plage horaire [Résolu]

ALex03 - 7 févr. 2018 à 23:06 - Dernière réponse :  Alex03
- 8 févr. 2018 à 11:27
Bonjour,

Je tente en vain de résoudre la combinaison avec la procédure "workbook_beforePrint" et l'arret de cette procédure durant une plage horaire.

Je voudrais bloquer l'impression d'une feuille. je n'ai trouvé que l'instruction "beforePrint".
Cependant je voudrais permettre l'impression de la feuille à partir de 12h jusquà 16h.

Je n'arrive pas à construire ma macro avec la combinaison des deux...Auriez vous une solution ou une piste?

Merci par avance de votre coup de pouce

Afficher la suite 

5 réponses

Répondre au sujet
jordane45 19963 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 15 février 2018 Dernière intervention - 8 févr. 2018 à 08:23
0
Utile
1
Bonjour

Dans to beforeprint tu vérifies l'heure...
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub


Comment puis je faire avec cette instruction?

Application.OnTime TimeValue("12:00:00"), 


J'aimerais pouvoir obtenir ceci :
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime TimeValue("12:00:00") "Déverouiller l'impression"
Application.OnTime TimeValue("16:00:00") "Vérouiller l'impression
Commenter la réponse de jordane45
Patrice33740 6716 Messages postés dimanche 13 juin 2010Date d'inscription 15 février 2018 Dernière intervention - 8 févr. 2018 à 09:54
0
Utile
2
Bonjour,

Poster sur plusieurs forums, sans en informer personne, est un manque de respect envers tous les bénévoles qui te consacrent de leur temps pour résoudre ton problème !
N'étant pas au courant, ils perdent leur temps sans connaître les réponses, souvent très intéressantes, des autres forums.
Pendant ce temps là, ils pourraient répondre à d'autres personnes qui eux aussi ont besoin d'aide.

Cest d'autant plus vrai que tu as reçu une réponse ici :
https://forum.excel-pratique.com/vie...620887#p620887
Désolé il est vrai que j'ai soumis mon problème sur plusieurs forum et je m'en excuse.
Parfois nos questions restent sans réponse c'est pour la raison que j'ai soumis ma problématique sur plusieurs forum.
En même temps j'en profite pour remercier toutes les personnes qui contribuent à entraider les personnes comme moi dans le besoin.

Oserais je espérer tout de même de l'aide?
Un grand merci a "h2so4" pour son aide.
Je poste la solution...cela peu toujours servir

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Now() < Date + TimeValue("12:00:00") Or Now() > Date + TimeValue("16:00:00") Then Cancel = True
End Sub
Commenter la réponse de Patrice33740