Excel est mon outil de travail « favori et indispensable ». A ce titre j’ouvre quotidiennement un paquet de fichiers. Beaucoup viennent de moi, mais parfois de personnes extérieures.
le soucis c’est que certains d’entre eux, modifie la taille et la position de la fenêtre, ce qui vient fatalement modifier les miennes.
Dans mes propres fichiers je voudrais donc imposer la taille et la position de mes classeurs via la macro Auto Open()
Private Sub Auto_Open()
Récupères d’abord tes dimensions souhaitées avec ce petit code à mettre dans ton fichier à la bonne taille :
With ActiveWindow
MsgBox (.Height)
MsgBox (.Width)
End With
Note la hauteur et la largeur
Puis mets ces valeurs dans un onglet dans 2 cellules distinctes de ton choix
Puis dans ta procédure Private Sub Auto_Open() mets ces lignes de code :
With ActiveWindow
.Height = Sheets(« Feuil2 »).Range(« A1 »)
.Width = Sheets(« Feuil2 »).Range(« B1 »)
End With
en actualisant le nom de l’onglet et la référence de la cellule
pour la hauteur : Sheets(« Feuil2 »).Range(« A1 »)
pour la largeur : Sheets(« Feuil2 »).Range(« B1 »)
Par contre la hauteur et la largeur c’est une chose…mais n’y a t il pas également une variable qui prend en compte la position de départ de la fenêtre ?
J’ai bien compris les 4 variables et je les maitrise grâce à tes explications. MERCI bcp
Par contre je n’arrive pas à comprendre la gestion de mes 3 écrans.
Mon écran central c’est pour windows le n°3
celui de droite le n°2
celui à gauche le n°1
A chaque fois que j’ouvre Excel cela se fait sur l’écran n°2. du coup tous les popups aussi. Et je n’arrive pas à lui dire que l’écran principal c’est le 3
Ta macro « Private Sub Auto_Open() » doit être dans ce classeur à dimensionner et positionner
Sinon il faut en début de procédure rendre ce classeur actif à l écran comme ceci :