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é