Code VBA impression de fonctionne pas correctement

bonjour à tous

qui peut m'aider

le problème la feuille certificat ne s'imprime qu'une seule fois

Sub imprime_Click()
Application.ScreenUpdating = False
Sheets("ordre de paiement").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("CERTIFICAT").Select
Cells(28, 12).Select

If ActiveCell > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
End If
Application.ScreenUpdating = True
 End Sub

bonjour Samybarma,

le contenu de cells(28,12), c'est quoi ?

Sub imprime_Click()
     Application.ScreenUpdating = False
     Sheets("ordre de paiement").PrintOut Copies:=1, Collate:=True

     With Sheets("CERTIFICAT")
          If .Cells(28, 12).valuel > 0 Then .PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
     End With
     Application.ScreenUpdating = True
End Sub

merci pour la réponse

mais meme problème

une valeur

je teste sur la valeur de la retenue qui existe dans la cellule en question

re, attention avec des cellules fusionnées

Sub imprime_Click3()
     Application.ScreenUpdating = False

     Sheets("ordre de paiement").PrintOut

     With Sheets("CERTIFICAT")
          If .Cells(28, 11).Value > 0 Then 'cellule fusionnée !!!
               .PrintOut
               .PrintOut
          End If
     End With

     Application.ScreenUpdating = True

End Sub

merci Bart

problème résolu

Bonjour a tous

mon deuxieme soucis et d'afficher la feuille cheque avant impression

puis l'imprimer sur une autre imprimante que l'imprimante par défaut

Sub imprime_Cheque()
Application.ScreenUpdating = False
Imprimante = Application.ActivePrinter 'Mémorise le choix de l'imprimante avant l'impression
    With Cheque
    Selection.PrintOut Copies:=1, ActivePrinter:="HPA227BB (HP Smart Tank 510 series)"
    Application.ActivePrinter = Imprimante 'Retour à l'imprimante choisie avant l'impression
    End With
Application.ScreenUpdating = True
Sheets("MENU").Select
End Sub