fermer l'aperçu d'écran

[petchy]

bonjour
voila à l'ouverture de mon fichier j'ai ça pour supprimer toutes les barres :
Private Sub Workbook_Open() 'suprime menu
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF


Application.WindowState = xlMaximized
With Application
.CommandBars(1).Enabled = False
.DisplayFullScreen = True
DisplayStatusBar = True
.DisplayFormulaBar = False
.OnKey "%{F2}", ""
.OnKey "%{F4}", ""
.OnKey "%{F8}", ""
'.OnKey "%{F11}", "" 'enleve le ' si l'utilisateur ne dois pas entrer dans VBA
.OnKey "^w", ""
End With

With ActiveWindow
.DisplayHorizontalScrollBar = False 'A toi de voir si tu veux les scrolls met true à la place
'.DisplayVerticalScrollBar = False 'A toi de voir si tu veux les scrolls met true à la place
.DisplayWorkbookTabs = False
End With
Application.DisplayStatusBar = True
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.CommandBars("Full Screen").Visible = False

ActiveWindow.SmallScroll ToRight:=-100 ' ça c'est en plus,c'est pour tirer le scroll à gauche
ActiveWindow.SmallScroll Down:=-100 ' ça c'est en plus,c'est pour tirer le scroll en haut

End Sub
ensuite sur ma feuille j'ai un bouton pour appeler la boite de dialogue pour imprimer :
Private Sub CommandButton1_Click()
Application.Dialogs _
(xlDialogPrint).Show
End Sub
sur cette boite de dialogue il y a un bouton pour faire un aperçu d'écran,mais le probleme c'est qu'une fois je fais un aperçu je ne peut plus retourné sur ma feuille,car il n'y à rien pour fermer l'aperçu.
auriez vous une idée pour fermer l'aperçu ?
merci
@ plus
petchy

 

[chris]

Re : fermer l'aperçu d'écran

Bonjour

Ben oui forcément !

Essaye ECHAP qui en temps normal ferme l'aperçu.

 

[petchy]

Re : fermer l'aperçu d'écran

Re
merci,ça ira
petchy