Détecter impression d'une page

Bonjour,

J'aimerais détecter en vba le fait qu'une page d'un classeur Excel a été imprimée.
J'ai utilisé l'événement BeforePrint de la façon suivante:

Code:

---

1 2 3 4

Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Impression" Then _ ThisWorkbook.Worksheets("Impression").Cells(3, 8) = "Impression ok" End Sub

---

Le problème est que si l'utilisateur affiche la boîte de dialogue d'impression puis clique sur 'Annuler' avant d'avoir imprimé, la procèdure ci-dessus s'est tout de même déroulée.
Existe-t-il un moyen de savoir si la page a réellement été imprimée?

Merci de votre aide.

Bonjour,
Tu pourrais détourner la macros d'impression sur une macros perso qui gérerait l'impression. Tu peu soit imprimer directement sans laisser l'occasion d'annuler ou bien employer la boite de dialogue et intercepter le résultat après.
A+

Bonjour,
La mise en code d'une des idées de Leforestier (enfin je crois)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.Name = "Impression" Then cancel=true Select Case MsgBox("Voulez-vous imprimer?", vbOKCancel + vbQuestion) Case vbOK Application.EnableEvents = False Sheets("Impression").printout Application.EnableEvents = true Case vbCancel MsgBox "annuler" End Select end if

---

Bonjour Krovax,
Sauf que ça devrais être dans un module général avec par exemple...;)

Code:

---

1 2 3 4 5 6

Sub ImprimePerso() If MsgBox("Voulez-vous imprimer?", vbOKCancel + vbQuestion) = vbOK Then Sheets("Impression").PrintOut Sheets("Impression").Cells(3, 8) = "Impression ok" End If End Sub

---

Et assigner cette macro au bouton imprimer d'excel.

Bien compliquer d'assigner une macro perso a un bouton d'excel,non? (je ne sais aps vraiment je ne l'ai jamais fait)
Mais il est vrai que l'interception de la commande avec un cancel=true est un peu la solution de facilité et sans doute pas la meilleur. Je crois qu'il serais temps que je m'intéresse a ceci. Si je trouve un lien je le transmettrai à rom1_am

Mais non, mais non, :P
>> Affichage >> Barre d'outils >> Personnaliser..
Laisser la fenêtre ouverte et clic droit sur le bouton Imprimer et changer la macros..
A+

Bon la pour la peine je me sent complètement Shadok ("Pourquoi faire simple quand on peut faire compliqué") J'ai commencer a chercher dans les tutox acess et excel a la recherche de quelque chose a ce sujet.... Bon ben merci beaucoup. rom1_am je croi que la tu as toutes les infos pour résoudre ton problème ;)

Merci pour vos réponses.

J'ai dans mon classeur un bouton "Imprimer" avec le code suivant afin d'afficher la boite de dialogue impression:

Code:

---

Application.Dialogs(xlDialogPrint).Show

---

Le problème est que je ne voulais pas utiliser l'instruction "printout" (qui m'aurait permis d'être sûr que la feuille a été imprimée) car les utilisateurs du classeur n'utiliseront pas forcément les mêmes paramètres d'impression ni l'imprimante par défaut de leur poste.

C'est pour cela que je souhaiterais détecter l'impression une fois qu'elle a été lancée sans la gérer par programmation.

Merci

Beh encore plus simple...:ccool:

Code:

---

1 2 3 4 5

Sub ImprimePerso() If Application.Dialogs(xlDialogPrint).Show Then Sheets("Impression").Cells(3, 8) = "Impression ok" End If End Sub

---

A+

Oui, mais ce code revient à peu près au même que ce que j'ai fait, on détecte l'affichage de la boîte de dialogue "Impression". Mais si l'utilisateur sort de cette boîte de dialogue en annulant l'impression, la page qui nous intéresse n'a pas été imprimée.

En gros, je souhaite détecter non pas pas l'événement "BeforePrint" mais plutôt "AfterPrint" mais malheureusement, cet événement ne fait pas partie des événements inclus dans Workbook.

Tu enlève le code dans BeforePrint, c'est traiter dans la macros.
Si l'utilisateur imprime, c'est marquer sinon.. non.
A+
Edit, le AfterPrint il est quand la boite de dialog est refermée.
= True si imprimer et False sinon.

Est ce que tu as testé le code???

Code:

---

Application.Dialogs(xlDialogPrint).Show

---

renvoi faux si l'utilisateur appuie sur annuler, on ne rentre donc as dans la boucle. et donc pas de

Code:

---

Sheets("Impression").Cells(3, 8) = "Impression ok"

---

Après si tu veux tester que l'imprimante soit bien allumé avec du papier de l'encre et tout, ca sera un peu plus compliqué (voir beaucoup plus)

Edit : Rahh encore croisé internet va a deux a l'heure du coup je ne refresh jamais et je met 3 plomb a répondre. Je crois que je vais attendre que cela fonctionne mieux et laisser LeForestier répondre il s'en sort bien mieux que moi :aie:

Ok, désolé, j'avais mal compris.

En effet, en testant si Application.Dialogs(xlDialogPrint).Show renvoit vrai ou faux, ça correspond tout à fait à ce que je recherchait. Ca marche nickel.

Merci beaucoup.:ccool: