XL 2010 Ouvrir une feuille avec une dimension choisie.

[DAVID-44-]

Bonjour à tous,
Je souhaiterais ouvrir une feuille avec une dimension précise.

J’ai un code qui me permet de le faire :

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.WindowState = xlNormal
Application.Width = 664 ' définit la largeur
Application.Height = 600 'définit la hauteur
End Sub

Je voudrais savoir s’il est possible de changer le chiffre par une cellule :

Application.Width = 664 ' définit la largeur
Par :
Application.Width = BJ1 ' cellule qui définit la largeur

Et :

Application.Height = 600 'définit la hauteur
Par :
Application.Height = A41 ' cellule qui définit la hauteur

Merci de votre aide.
Bonne journée.
David.

 

[fanch55]

Bonjour,
Je ne vois pas ce qui vous en empêche .
Toutefois si vous avez plusieurs feuilles, précisez-la dans votre assignation,
ou mieux, donnez un nom aux cellules

 

[job75]

Bonjour DAVID-44-, fanch55,

Surtout au lieu de BJ1 et A41 utiliser [BJ1] et [A41] !!!

A+

 

[fanch55]

Bonjour DAVID-44-, fanch55,

Surtout au lieu de BJ1 et A41 utiliser [BJ1] et [A41] !!!

A+

Tout à fait sinon pas bon ...

 

[DAVID-44-]

Bonjour fanch55, job75

Merci pour vos conseils,
J'ai mis ce code dans ThisWorkbook :

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

Malheureusement quand j'ouvre le fichier, je n'ai que le bandeau du haut !

Merci de votre aide.
Bonne journée.
David.

 

[job75]

Vérifiez qu'il y a les bonnes valeurs dans les 2 cellules de la feuille active.

 

[patricktoulon]

Bonjour

en utilisant le code name de la feuille

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

ou le nom de la feuille

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

peut etre aussi ajouter une verif des valeurs histoire de savoir pourquoi ca ne fonctionne pas

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

a noter que pour ce dernier exemple j'ai utilisé le code name de la feuille mais comme pour l'autre , on peut utiliser le nom de la feuille (celui que tu lui a donné)
j'ai tout dis !!

 

[DAVID-44-]

Bonsoir fanch55, job75, patricktoulon

Merci beaucoup.
Bonne soirée.
David.