Message avant impression

[judikael]

Bonjour

Afin de lutter contre l'impression intempestive par mes collègues de nombreux documents excel que je crée dans le service, est il possible d'avoir un message qui s'affiche au moment où ils demandent l'impression ?

J'explique un peu ce que j'aimerais :

La personne clique sur le bouton "imprimer" ou fait "Fichier" puis "imprimer", apparaît alors une box qui dit "Etes vous sûr qu'il est vraiment nécessaire d'imprimer ce document ?" et dessous 2 boutons : "Oui" et "Non"

si la personne clique sur Oui, alors le processus d'impression se poursuit
si "Non" alors il retourne au fichier et annule le process d'impression.



J'espère que cela est jouable mais je suis désespéremment nul en macro

Merci d'avance

PP

 

[tactic6]

Re : Message avant impression

Bonjour
si ton bouton est une macro alors:

Sub imprimer()
If MsgBox("Voulez vous Imprimer ce Document ?", vbYesNo) = vbYes Then _
...ta macro ...
end if
end sub

sinon les pros te répondront surement

 

[judikael]

Re : Message avant impression

Merci tactic6 mais comme je suis nul en macro je rame quand même...

 

[Staple1600]

Re : Message avant impression

Bonjour


• En mettant le code dans ThisWorkBook
(Quand ton fichier Excel est ouvert tu fais ALT+F11 et à gauche de ton écran, tu dois voir ThisWorkBook,
là tu cliques-droit et tu colles le code VBA ci-dessous.)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
reponse= _
MsgBox _
("Etes vous sûr qu'il est vraiment nécessaire d'imprimer ce document ?", _
vbYesNo + vbCritical, "Avertissement")
If reponse = 1 Then 
[B]ActiveSheet.PrintPreview
[/B][COLOR=SeaGreen]'remplacer par ActiveSheet.PrintOut
'pour lancer l'impression de la feuille active[/COLOR] 
ActiveSheet.PrintPreview
Else
Cancel = True
End If
End Sub

La même chose mais avec comme bouton OUI /Annuler

Private Sub Workbook_BeforePrint(Cancel As Boolean)
reponse = _
MsgBox _
("Etes vous sûr qu'il est vraiment nécessaire d'imprimer ce document ?", _
vbOKCancel + vbCritical, "Avertissement")
If reponse = vbOK Then
ActiveSheet.PrintPreview [COLOR=Green]'ici aperçu avant Impression[/COLOR]
'[COLOR=Green]  ActiveSheet.PrintOut 'pour imprimer[/COLOR]
Else
Cancel = True
End If
End Sub

PS: il faut mettre une des deux macros (pas les deux)

Edition: bonjour JCGL désolé pour la collision
(et bravo ton ton nouveau grade de Barbatruc )

 

[JCGL]

Re : Message avant impression

Bonjour à tous,

Peux-tu essayer avec ce fichier ?

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse
Reponse = MsgBox("Etes vous sûr qu'il est vraiment nécessaire d'imprimer ce document ?", vbYesNo, "Pensez aux économies ;-)")
If Reponse = vbNo Then Cancel = True
If Reponse = vbYes Then ActiveSheet.PrintOut
End Sub

A+

Edition : Salut Staple

 

[Staple1600]

Re : Message avant impression

Re


---> JCGL:

Le Dim Reponse

On le déclare en quoi

As Byte?

ou tel quel en Variant ?

 

[judikael]

Re : Message avant impression

Merci à tous vous me sauvez !

cela va peut-être calmer les ardeurs de mes collegues à imprimer pour rien

 

[Excel_lent]

Re : Message avant impression

Bonsoir à tous et aux autres.

autre

Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Reponse%
Reponse = MsgBox("Etes vous sûr qu'il est vraiment nécessaire d'imprimer ce document ?", _
  vbYesNo, "Pensez aux économies ;-)")
If Reponse = 7 Then Cancel = True Else ActiveSheet.PrintOut 'Reponse = 6 pour ce cas
End Sub

Staple, qui a décrit la démarche, aura une réponse (dim Reponse% pour Dim Reponse as Byte).

 

[JCGL]

Re : Message avant impression

Re,

Il me semble que % est de type Integer...

A+

 

[Excel_lent]

Re : Message avant impression

Re,

Tu as raison JC, j'aurais dû écrire Reponse& !
(petite flèche )

 

[Staple1600]

Re : Message avant impression

RE à tous

-->judikael: reste a vérifier ce qui se passe avec un clic-droit sur le fichier Excel -> [Imprimer]

Edition: je viens de tester, le message d'alerte macro s'affiche, et si je réponds sur NON
l'impression se lance !!

La solution ne viendra pas d'Excel dans ce cas là ...
(Tu peux (mais cela peut être mal percu par tes utilisateurs) désactiver le clic-droit en allant trifouiller la BDR)

_____________________
--> JCGL et Excel_lent

L'aide VBA dit

MsgBox, fonction


Affiche un message dans une boîte de dialogue, attend que l'utilisateur clique sur un bouton, puis renvoie une valeur de type Integer qui indique le bouton choisi par l'utilisateur.

LA FAQ du Forum dit:

3 - Integer (%)

donc qui a finalement raison ?

JCGL ou Excel_Lent ?

 

[Excel_lent]

Re : Message avant impression

Re,

JC me reprenait, à juste raison, sur la notation (différence entre & et %).

Valeurs renvoyées par MsgBox 1, 2, 3 ... 7
Avec cela, on peut se contenter d'une variable de type Byte (entier de 0 à 255)
mais si on ne lésine pas sur les moyens (mémoire oblige certaine fois) on peut déclarer la variable en type Integer (qui peut le plus, peut le moins) voire Long ...