Afficherdeux feuilles du classeur à l'ouverture

ennida

XLDnaute Junior
Bonjour,

Est il possible de créer une macro qui me permette d'afficher en vertical deux feuilles à l'ouverture

merci
 

kjin

XLDnaute Barbatruc
Re : Afficherdeux feuilles du classeur à l'ouverture

Bonjour, salut tototiti,
Code:
Private Sub Workbook_Open()
Application.EnableEvents = False
With ActiveWorkbook
    Set wnd = ActiveWindow
    With wnd
        .WindowState = xlNormal
        .Top = 0
        .Left = 0
        .Width = Application.Width / 2
        Sheets(1).Select
        .NewWindow
         With ActiveWindow
            .Top = 0
            .Left = wnd.Left + wnd.Width
            .Width = Application.Width / 2
            Sheets(3).Select
        End With
    End With
End With
Application.EnableEvents = True
End Sub
A+
kjin
 

Discussions similaires

Statistiques des forums

Discussions
312 489
Messages
2 088 855
Membres
103 979
dernier inscrit
bderradji