Bloquer impression sur une plage horaire

Résolu

ALex03 -
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

A voir également:

Bloquer impression sur une plage horaire
Spouleur d'impression - Guide
Impression livret a5 - Guide
Bloquer pub youtube - Accueil - Streaming
Bloquer sur messenger - Guide
Comment savoir si on est bloqué sur Messenger ou Facebook ? - Guide

2 réponses

Réponse 1 / 2

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 752

Bonjour

Dans to beforeprint tu vérifies l'heure...

Alex03

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

Réponse 2 / 2

Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention 1 780

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

Alex03

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?

Alex03

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

Discussions similaires

Retrouver l'image originale après avoir fait des modifications ?

Dechiffrer une image caché

Historique d'impression

travail d equipe horaires a la carte?

Planning horaires décalés 7 jours sur 7

Votre réponse

Discussions similaires