Positionner une fenêtre Excel par VBA en fonction de la taille de l'écran

Bonjour à tous,

Je suis en cours de développement d'un formulaire, et j'ai prévu d'afficher mon formulaire à droite de l'écran, et la feuille de commande Excel à gauche.
En utilisant l'enregistrement automatique d'une macro, j'ai obtenu la position de ma fenêtre dans la partie médiane gauche de mon écran :

Code:

---

1 2 3 4 5 6 7 8 9

Sub Cadrer_Fenetre() ' ' Cadrer_Fenetre Macro ' Application.Left = 1 Application.Top = 1 Application.Width = 630 Application.Height = 686.25 End Sub

---

Bien sûr, les valeurs "Width et Height" dépendent de mon type d'écran (18"1/4).
Ma question est donc : "Comment puis-je récupérer les valeurs "Width et Height" liées à l'écran du futur utilisateur de l'application ?"
Je vous remercie d'avance de votre réponse si vous avez la solution, ce dont je ne doute pas...

Mistouv

Bonsoir,

Citation:

---

"Comment puis-je récupérer les valeurs "Width et Height" liées à l'écran du futur utilisateur de l'application ?"

---

Une solution est de maximiser la fenêtre de l'application Excel, puis de récupérer la taille de la fenêtre ainsi maximisée.

Code:

---

1 2 3 4 5 6

With Application .WindowState = xlMaximized largeur = .Width hauteur = .Height End With

---

Puis d'ajuster la taille du classeur dans les proportions souhaitées.

Code:

---

1 2 3 4 5 6

With Application.Windows("Classeur1") .WindowState = xlNormal .Width = largeur * 0.5 .Height = hauteur End With

---

Pour les positionnements d'un UserForm, voir Définir la position d'USF à l'écran de SilkyRoad

Bonjour,

Egalement, il faudrai voir si le ppp (point par pouce) de Windows de l'utilisateur impact la taille de la fenêtre ou non. Pour ma part, je suis en 144 ppp contre 96 ppp par défaut sur tout les Windows d'origine. Un nbre de ppp plus grand que 96 abaisse virtuellement la définition de l'écran. Les texte sont affiché plus gros et ça prends plus de place.

Bonsoir, et merci pour vos réponses.

Je ne peux malheureusement pas tester en reel avant lundi sur une autre machine, mais ta réponse, BlueMonkey, me semble effectivement fonctionner, j'ai essayé "à blanc", sur ma machine.
Je tiendrai bien évidemment compte de la remarque de Nouveau2, et je reviendrai vers vous si je constate quelque chose de particulier.
De ce fait, je clôture ce sujet.

Merci encore,
Mistouv