Détecter la fin d'une impression

[Willy]

Bonjour à toutes et à tous,
Je souhaiterai savoir si il existe une procédure permettant de tester si une impression est en cours, ou mieux détecter quand l'impression est terminée ?

Je m'explique :
les feuilles 1 et 2 représentent un document recto verso.
J'ai un bouton qui lance l'impression et contient entre autre :
Sheets("DOC-1").PrintOut Copies:=1
Sheets("DOC-2").PrintOut Copies:=1
Je souhaiterai donc imprimer la feuille 1 (recto) puis afficher un msgBox indiquant à l'utilisateur d'inserer à nouveau le document pour imprimer la feuille 2 (verso).
Est ce possible ?

Vos idées seront les bienvenues.
Merci beaucoup
Willy

 

[William]

J'ai peut-être ça....


Sub Impression ()

Sheets("DOC-1").PrintOut Copies:=1
Sheets("DOC-2").PrintOut Copies:=1

MsgBox " Merci d'insérer la feuille qui s'imprime actuellement, pour l'impression du verso "
If MsgBox1 = True Then
GoTo 10
End If

MsgBox " Pour imprimer, cliquer sur OK"
If MsgBox2 = True Then
GoTo 10
End If

Sheets("DOC-2").PrintOut Copies:=1

Exit Sub


10 MsgBox " Merci de saisir l'ensemble des données, avant de sauvegarder... "

End Sub


Mais, je n'ai pas contrôlé....

A suivre...

A Bientôt,

William

 

[William]

En me relisant, j'ai noté une erreur... Eh oui, c'est ça de faire du copier-coller...


Il fallait lire :


10 MsgBox " Impression du verso suspendue "


ou quelque chose dans le style...


William

 

[Willy]

Bonsoir William,
Merci pour ton aide, je vais me diriger dans cette voie et tester ta procédure
A+ Willy

 

[Willy]

Salut William,
Ca marche impect
merci encore
Willy

 

[William]

Ah ben ça c'est cool !!


Cette macro sans vérifier, la prochaine..... Sans les mains !!

😱)

A bientôt,

William