Blocage APERCU avant impression Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Marc59300
Jeune membre
Jeune membre
Messages : 27
Appréciation reçue : 1
Inscrit le : 14 octobre 2019
Version de Sheets : fr

Message par Marc59300 » 13 novembre 2019, 15:12

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

:thx: :thx: :thx:
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 5'334
Appréciations reçues : 294
Inscrit le : 16 mars 2017
Version d'Excel : 2010

Message par i20100 » 24 novembre 2019, 00:48

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é :wink:
Vive ces nouvelles saisons qui nous colorent.
isabelle
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message