Discussion :

[rom1_am]

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 :

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

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.

[LeForestier]

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+

[Krovax]

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

Code :

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

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

[LeForestier]

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

Code :

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

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.

[Krovax]

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

[LeForestier]

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

[rom1_am]

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.