Discussion :

[dlight]

Bonjour.

Est-il possible de faire en sorte qu'à l'ouverture d'un fichier Excel le code annule la possibilité d'imprimer via le menu "Fichier-Impression" ou par l'icone. Ceci forcera les utilisateurs à utiliser un bouton d'impression ayant des fonctions utiles pour l'année suivante.

Naturellement, à la sortie du fichier, les fonctions devront être disponible à nouveau


Merci à l'avance

[78chris]

Bonjour

Il faut intercepter l'événement beforeprint dans le module Thisworkbook.

Tout appel à l'impression ou l'aperçu sera alors intercepté.

Code du type

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If printclick <> True Then
        Cancel = True
        Call affmsg("Veuillez utiliser le bouton IMPRESSION.")
    End If
End Sub

printclick est une variable public initialisée à true par le bouton Impression, qui lui doit pouvoir aller au bout de l'impression, puis remise à false à l'issue de cette impression contrôlée.

(dans cet exemple l'affichage ds messages est faite par une procédure d'où le call mais pas indispensable)

[dlight]

Merci. C'est parfait

[dlight]

Le bout de code de 78chris fonctionne bien mais bloque aussi mon bouton d'impression qui doit être utiliser par les responsables de dossiers.

Le code doit bloquer la possibilité du menu fichier impression ou de l'icone sans bloquer l'impression à partir du bouton que j'ai créé.


Merci à l'avance

[78chris]

Bonjour

Relis mon message : il faut une variable public printclick que le code de ton bouton doit gérer comme indiqué.

[dlight]

Alors c'est que je ne comprend pas bien le portion de votre message "variable public printclick que le code de ton bouton doit gérer comme indiqué".

Je suis novice en vba...

Merci pour la rapidité à laquelle vous avez répondu...

dlight