XL 2010 Ouvrir une feuille avec une dimension choisie.

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.WindowState = xlNormal
Application.Width =Feuil1.[BJ1] value' définit la largeur
Application.Height = Feuil1.[A41]value 'définit la hauteur
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.WindowState = xlNormal
Application.Width = sheets("toto").[BJ1].value' définit la largeur
Application.Height = sheets("toto").[A41].value 'définit la hauteur
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
with Feuil1
if val(.[BJ1].value)=0 or val(.[A41].value)=0 then msgbox "les valeurs de dimensionnement dans les cellules   ne sont pas valides ":exit sub
Application.WindowState = xlNormal
Application.Width = .[BJ1].value ' définit la largeur
Application.Height = .[A41].value'définit la hauteur
end with
End Sub