Blocage APERCU avant impression

Bonjour

J'ai ma feuille qui est en plein écran avec les menus cache via le code au démarrage du classeur :

Private Sub Workbook_Open()
    With Application
        ' le ruban
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)"
        ' la barre de formule
        Application.DisplayFormulaBar = False
        ' barre de status
        Application.DisplayStatusBar = False
    End With
    With ActiveWindow
        ' les titres (A et 1)
        .DisplayHeadings = False
        ' scroll barre horizontale
        .DisplayHorizontalScrollBar = False
        ' scroll barre verticale
        .DisplayVerticalScrollBar = False
        ' les onglets
        .DisplayWorkbookTabs = False
    End With
    ' on passe la variable booléenne leMenu à vrai
    leMenu = True
    ' on change le nom du bouton "Plein_écran" qui se trouve sur la feuille 1 en "Plein écran"
    Sheets("ACCUEIL").Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Petit écran"

Sheets("ACCUEIL").Activate
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application
        ' le ruban
        Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
        ' la barre de formule
        Application.DisplayFormulaBar = True
        ' barre de status
        Application.DisplayStatusBar = True
    End With
    With ActiveWindow
        ' les titres (A et 1)
        .DisplayHeadings = True
        ' scroll barre horizontale
        .DisplayHorizontalScrollBar = True
        ' scroll barre verticale
        .DisplayVerticalScrollBar = True
        ' les onglets
        .DisplayWorkbookTabs = True
    End With
    ' on passe la variable booléenne leMenu à faux
    leMenu = False
    ' on change le nom du bouton "Plein_écran" qui se trouve sur la feuille 1 en "Plein écran"
    Sheets("ACCUEIL").Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Plein écran"
End Sub

Je lance via une macro aperçu avant impression, et quand je veux quitter sans imprimer excel ce bloquer et le sablier tourne dans le vide sans pouvoir fermer(voir ci dessous) :

ub ImprimeSEUL()
    If leMenu = True Then ' si leMenu = vrai on affiche tout
        With Application
            ' le ruban
            Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
            ' la barre de formule
            Application.DisplayFormulaBar = True
            ' barre de status
            Application.DisplayStatusBar = True
        End With
        With ActiveWindow
            ' les titres (A et 1)
            .DisplayHeadings = True
            ' scroll barre horizontale
            .DisplayHorizontalScrollBar = True
            ' scroll barre verticale
            .DisplayVerticalScrollBar = True
            ' les onglets
            .DisplayWorkbookTabs = True
        End With
        ' on passe la variable booléenne leMenu à faux
        leMenu = False
        ' on change le nom du bouton "Plein_écran" qui se trouve sur la feuille 1 en "Plein écran"
        Sheets("ACCUEIL").Shapes("Plein_écran").TextFrame2.TextRange.Characters.Text = "Plein écran"
    End If
Application.Dialogs(xlDialogPrintPreview).Show
End Sub

Que faut-il faire

Merci de votre aide

Bonjour Marc59300,

ta question est marquée comme étant résolu,

si celle-ci l'est vraiment, peux-tu partager la solution avec nous ?

sinon, fait nous savoir si le problème est toujours d'actualité

Rechercher des sujets similaires à "blocage apercu impression"