XL 2021 Taille de fenêtre à l'ouverture

[jcpamart]

Salut,
Une question peut être idiote, mais je la pose quand même :
Peut on fixer la dimension de la fenêtre d'un fichier excel à l'ouverture ?

Alors pourquoi je pose cette question ? Tout simplement parce que j'ai un écran de 49'' et que dernièrement, mes fichiers s'ouvraient à quelques mm de la surface totale de l'écran.
Du coup, si j'ouvrais un fichier par erreur, j'avais tendance à clicker juste derrière, se qui fermait mon navigateur et non le fichier excel.

J'ai donc repris mon (mes) fichier(s) en question pour les modifier à l'équivalent d'un 1/3 de l'écran.

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

Merci et bon WE !

 

[TooFatBoy]

Bonjour,

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

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

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

 

[Zon]

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+++

 

[jcpamart]

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

 

[Usine à gaz]

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

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

 

[Zon]

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.

 

[jcpamart]

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

 

[Usine à gaz]

Bonjour le Fil, le Forum

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

 

[Usine à gaz]

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

 

[jcpamart]

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

 

[TooFatBoy]

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.

 

[Usine à gaz]

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 :

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...

 

[Zon]

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

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.

 

[TooFatBoy]

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.

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


[edit] Merci [/edit]

 

[jcpamart]

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....