Problème exécution macro impression

Bonjour au forum, si vous pouviez me donner un petit coup de pouce pour finaliser une macro d impression...

Je ne trouve pas comment stopper la macro à la première feuille pour avoir un aperçu avant impression.

Actuellement ma macro s exécuté jusqu'au bout,elle M affiche l aperçu avant impression de la deuxième sélection.

Voici le code ci dessous

Merci par avance.

ActiveSheet.Unprotect

Application.ScreenUpdating = False

ActiveSheet.PageSetup.PrintArea = "$C$2:$P$78"

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

'ICI MANQUE LE CODÉ POUR STOPPER LA MACRO TANT QUE JE NAI PAS CLIQUE SUR IMPRIMER DANS LE GESTIONNAIRE D IMPRESSION'

ActiveSheet.PageSetup.PrintArea = "$C$79:$P$134"

Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

Range("K7").Select

ActiveSheet.Protect

Application.ScreenUpdating = True

End Sub

Bonsoir jc jez,

une solution qui ajoute un bouton sur la feuille après la première impression, qui est éliminé à la fin:

Option Explicit
Public Resume_Macro As Boolean

Sub Resume_Click()

    Resume_Macro = True
    ActiveSheet.PageSetup.PrintArea = "$C$79:$P$134"
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
    Range("K7").Select
    ActiveSheet.Protect
    ActiveSheet.Shapes("Continuer").Delete
    Application.ScreenUpdating = True

End Sub

Sub Imprimer()

    ActiveSheet.Unprotect
    Application.ScreenUpdating = False
    ActiveSheet.PageSetup.PrintArea = "$C$2:$P$78"
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")

    Resume_Macro = False

    Call CreateButton
    While Not Resume_Macro
        DoEvents
    Wend
    Resume_Macro = False

End Sub

Sub CreateButton()

    Application.ScreenUpdating = False
    ActiveSheet.Buttons.Add(450.5, 20, 81, 36).Select
    Selection.Characters.Text = "Continuer"
    Selection.Name = "Continuer"
    Selection.OnAction = "Resume_Click"
    ActiveSheet.Shapes("Continuer").Select
    Range("A1").Select
    Application.ScreenUpdating = True
End Sub

Merci à toi

Je vais tester ça demain

Bonne soirée

Bonjour à toi Séquoias,

J ai testé ton code, il fonctionne.

J ai opté pour une autre solution qui consiste à mettre 2 boutons, un bouton dédié pour chaque zone d impression.

En fait ma solution, je pense est plus simple et pas soumise à un éventuel but lors de la création et suppression du bouton"continuer".

Merci tout de même

Bonne journée

Jc jez

Rechercher des sujets similaires à "probleme execution macro impression"