Bonjour,

Le post date
http://www.developpez.net/forums/d57...cu-impression/

un peu mais je suis confronté à la situation.
Je souhaite interrompre le code, si dans l'aperçu avant impression l'utilisateur clique sur "Fermer l'aperçu avant impression".
Je viens de tester et le code se poursuit.

Mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub IpressionQuittance()
'impression de la quittance
With Sheets("Quittance")
   'défini la plage d'impression
   PlageImp = .Range("B1:E43").Address
   .PageSetup.PrintArea = PlageImp
   .PrintPreview
   ' tester si l'impression a été abandonnée
 
   'Note la quittance comme imprimée
   LeMois = .Range("B19").Value
   LeLocataire = .Range("D12").Value
   Li = Application.Match(LeMois, Sheets(LeLocataire).Range("B:B"), 0)
   'Ecris Imp pour quittance imprimée en colonne I
   Sheets(LeLocataire).Cells(Li, "I") = "Imp"
End With
End Sub
Merci à celui qui pourra m'apporter une précision.