Bloquer impression sur une plage horaire

Résolu
ALex03 -  
 Alex03 -
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

2 réponses

  1.
    jordane45 Messages postés 30426 Date d'inscription   Statut Modérateur Dernière intervention   4 830
     
    Bonjour

    Dans to beforeprint tu vérifies l'heure...
    0
    1. 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
      0
  2. Patrice33740 Messages postés 8400 Date d'inscription   Statut Membre Dernière intervention   1 783
     
    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
    0
    1. 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?
      0
    2. 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
      0

Discussions similaires

Retrouver l'image originale d'une photo modifiée
Raven -
Asta972155 -

10 réponses
travail d equipe horaires a la carte?
doudou -
BmV -

4 réponses
Impression Miroir ?
paquicora -
robin -

3 réponses
types d'horaires du travail
SEMLAL -
SEMLAL -

2 réponses
Historique d'impression
nyla29 -
zzz -

6 réponses