Discussion :

[phanoulevoyou]

Bonjour à tous,

j'ai fait une recherche sur le site par rapport à la commande imprimer et je n'ai rien trouvé du moins la recherche ne m'a rien trouvé.

Je souhaiterai inhiber la commande imprimer sur excel, aussi bien via la commande imprimer (excel 2007 jusqu'à 2013) que les touches raccourcis Ctrl+ P

Le but étant de forcer l'utilisateur à prendre le bouton de commande créé dans un USF.

Merci de votre aide futur,
Cdlt, PLV.

[Marc-L]

Bonjour,

dans le module de classe du classeur ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
End Sub

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[phanoulevoyou]

Bonjour Marc,

j'ai déjà vu ce bout de commande sur un autre site. Certes je ne l'ai pas essayé (mea culpa) mais ne va-t-il pas m'empêcher également d'imprimer depuis mon USF ? Sauf peut être si dans mon code je lui redonne cette permission d'impression...

Sauf erreur de ma part, avant on pouvait bien rendre impraticable les boutons de commande dans les différents menu de Excel ? La commande était grisée et inutilisable par l'utilisateur...
Pourquoi ne pouvons nous plus le faire maintenant ?

Cdlt,
PLV.

[parmi]

Bonjour,

Un peu de lecture ici

[phanoulevoyou]

Re,

si je mets ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
End Sub

Comment puis-je ensuite depuis mon USF remettre le cancel = false ?

Cdlt,
PLV.

Merci Parmi pour cette petite lecture mais mon niveau excel VBA ne me permet pas encore de faire tout ce que je viens de survoler dans la lecture...

Bonne soirée...

PLV.

Bonjour à tous,

je n'ai toujours pas de solution à mon petit problème c'est à dire remettre le cancel = true depuis mon USF.

Lorsque j'applique le code de Marc en effet ça empêche l'impression mais du coup je ne peux pas non plus imprimer depuis mon USF...

Comment puis-je remettre depuis mon USF l'autorisation d'impression ?
Est-il possible d'appeler la procédure workbook_beforeprint ?

Merci pour votre futur aide...

Cdlt,
PLV

[parmi]

Tu pourrais te mettre une variable Public du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Valide As Boolean

Quand tu cliques ton bouton d'impression, tu la mets à True et quand tu passes par workbook_beforeprint, tu vérifies si elle est True.
Si vrai, tu imprimes tu la remets à False, sinon Cancel = True

[phanoulevoyou]

Bonjour Parmi,

Pourrais-tu m'éclairer un peu plus sur ton idée de variable car mon petit niveau ne me permet pas de mettre en place l'aide que tu me conseilles.

J'imagine que je dois créer une variable, moi les variables je les mets en général dans une procédure. Est ce que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Valide As Boolean

est une variable comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim i as integer

Dans ce cas dois-je simplement lui affecter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Variable = true

Et ensuite comment lui dire que si je ne passe pas par mon USF je n'imprime pas, et pour le contraire j'imprime...

Bref beaucoup de flou pour moi comme tu peux le voir...