XL 2021 Taille de fenêtre à l'ouverture

TooFatBoy

XLDnaute Barbatruc

• 7 Juillet 2023

• #2

Bonjour,

jcpamart à dit:

Mais peut on fixer la taille d'ouverture d'un fichier, en tout cas celui d'un XLSX ?

Cliquez pour agrandir...

D'un xlsm ou xlsb avec les macros activées, oui, on peut.

D'un xlsx peut-être en passant par un raccourci.

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 7 Juillet 2023

• #3

Salut,

En positionnant la souris sur un des angles de la fenetre XL je peux personnaliser la taille que je veux. Si j'agrandis par le carré à coté de la croix, puis je réduis , la taille retrouvera sa dimension personnalisée.
Fermeture Windows. J'ai toujours ma taille personnalisée en rouvrant Excel.

Xl 2019 Win10

A+++

 

Vote positif 0 Vote négatif

jcpamart

XLDnaute Occasionnel

• 8 Juillet 2023

• #4

Salut ZON, oui ça OK, mais on ne peut pas fixer cette taille définitivement ?

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 8 Juillet 2023

• #5

Bjr le Fil,
Peut-être comme ça :
Voire fichier test joint

VB:

Private Sub Workbook_Open()
With ActiveWindow
        .WindowState = xlNormal
        Application.Left = 1
        Application.Top = 1
        Application.Width = 800 'largeur
        Application.Height = 500 'hauteur
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application 'plein écran
    .WindowState = xlMaximized 'window max
    End With
End Sub

 

Pièces jointes

• excel taille ecran ouverture.xlsm

  15.2 KB · Affichages: 9

Dernière édition: 8 Juillet 2023

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 12 Juillet 2023

• #6

Bonsoir,

@jcpamart la meilleure solution est celle @Usine à gaz .

Sinon, soit il faut modifier la base de registre Zindows ou modifier une DLL => c'est pas le but du forum , car si mauvaise manip d'un lecteur , je ne veux pas que @David Aubert soit tenu pour responsable....

A+++

PS Désolé pour le retard mais ce week end le forum ne m'a envoyé aucune notification.

 

Vote positif 0 Vote négatif

jcpamart

XLDnaute Occasionnel

• 12 Juillet 2023

• #7

Non pas de soucis,
C'est effectivement un problème lié à Windows plus qu'à Office en lui même....
Merci en tout cas

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Juillet 2023

• #8

Bonjour le Fil, le Forum

Curieux, j'ai l'impression d'être transparent pour jcpamart

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Juillet 2023

• #9

Bjr Zon
je n'ai pas compris ta réaction "en colère" à mon encontre.
Veux tu me dire ?

 

Vote positif 0 Vote négatif

jcpamart

XLDnaute Occasionnel

• 13 Juillet 2023

• #10

Salut Usine à Gaz. Attend, je comprends pas.
Désolé de ne pas t'avoir répondu, mais je ne sais pas coder en VB, voir pas coder du tout. Mais j'aurais du te répondre tu as raison.
Par contre, je pense que le soucis vient plutôt de win11, car j'ai redimensionné la fenêtre, et ça a marché, mais c'est redevenu comme avant après une MAJ..... C'est un peu chiant cette fenêtre qui s'ouvre presque complètement, et quand on veut la fermer, en fait on click sur le navigateur qui est juste derrière. C'est ça qui m'embête exactement.
Mes excuses Usine à Gaz. Et merci pour ton aide.
JC

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2023

• #11

Si ça ne ferme pas la bonne fenêtre, c'est que tu ne cliques pas au bon endroit...

Si tu n'arrives pas à viser la bonne zone sur l'écran, essaye avec le menu déroulant, ou avec le raccourci-clavier.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Juillet 2023

• #12

Bjr jcpamart , le Fil
Avec ce code : il n'y a pas de souci avec Windows qu'elle que soit la version.
Et tu n'as pas besoin de coder.
Il te suffit de copier ça :

VB:

Private Sub Workbook_Open()
With ActiveWindow
        .WindowState = xlNormal
        Application.Left = 1
        Application.Top = 1
        Application.Width = 800 'largeur
        Application.Height = 500 'hauteur
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Application 'plein écran
    .WindowState = xlMaximized 'window max
    End With
End Sub

dans le ThisWorkbook de ton fichier.
Si tu ne sais pas faire, dis-le moi et je te ferai une petite démonstration...

 

Vote positif 0 Vote négatif

Z

Zon

XLDnaute Impliqué

• 13 Juillet 2023

• #13

Usine à gaz à dit:

Bjr Zon
je n'ai pas compris ta réaction "en colère" à mon encontre.
Veux tu me dire ?

Cliquez pour agrandir...

Tu disais " j'ai l'impression d'être transparent pour jcpamart ", ça me mets en colère qu'il t'aies oublié, donc c'est pour te montrer mon soutien.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Juillet 2023

• #14

Zon à dit:

Tu disais " j'ai l'impression d'être transparent pour jcpamart ", ça me mets en colère qu'il t'aies oublié, donc c'est pour te montrer mon soutien.

Cliquez pour agrandir...

L'ai-je également (pour la même raison) ?


[edit] Merci [/edit]

 

Vote positif 0 Vote négatif

jcpamart

XLDnaute Occasionnel

• 13 Juillet 2023

• #15

Salut les amis,
Merci beaucoup mais il ne faut pas se mettre dans tous nos états. J'ai pas mal de taf, du coup je répond quand je peux aussi. Je regarde ça pour comprendre les suites de la MAJ de win 11.
Pour ce qui est du fichier Usine à gaz, on dirait que ça ne fonctionne pas.... Désolé mais le VB je ne maitrise pas.
J'ai essayé avec ton fichier mais rien à faire....
Surement une erreur de ma part....

 

Vote positif 0 Vote négatif