Affichage différents fichiers dans les angles selon option prédéterminée

Bonjour à tous,

Je suis en train de monter un système de Dashboard - Monitoring pour ma boite.

Différents fichiers similaires doivent être visibles simultanément sur un écran, voire sur beamer lors de séance avec plus de participants...

De manière manuelle, il est possible de positionner les fenêtres des dits fichiers dans les coins respectifs de l'écran/beamer.

Je cherche à savoir si un code est possible pour positionner le fichier "actif" sur simple "click-bouton".

Le zoom du contenu doit évidemment pour rendre la chose utilisable également s'adapter au nouveau format de fenêtre.

En exemple un fichier qui illustre mon besoin.

Le mode plein écran est déjà actif avec un menu... (et revenir en mode "normal" également).

Merci d'avance pour vos précieuses contributions !

Cordialement

Willau

Salut,

J'ai trouvé ça en fouillant un peu :

https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Window

ça m'a permis de sortir ce petit bout de code à peaufiner :

Sub Macro1()
'
' Macro1 Macro
'
'Résolution de l'écran
Hauteur = 900
Largeur = 1600

'En haut à Gauche
    'Passe en Fenêtré
    ActiveWindow.WindowState = xlNormal
    'Gère la hauteur de la fenêtre
    ActiveWindow.Height = Hauteur / 2
    'Gère la largeur de la fenêtre
    ActiveWindow.Width = Largeur / 2
    'Gère la position par rapport à la gauche de l'écran
    ActiveWindow.Left = 0
    'Gère la position par rapport au haut de l'écran
    ActiveWindow.Top = 0

'En haut à Droite
    'Passe en Fenêtré
    ActiveWindow.WindowState = xlNormal
    'Gère la hauteur de la fenêtre
    ActiveWindow.Height = Hauteur / 2
    'Gère la largeur de la fenêtre
    ActiveWindow.Width = Largeur / 2
    'Gère la position par rapport à la gauche de l'écran
    ActiveWindow.Left = Largeur / 2
    'Gère la position par rapport au haut de l'écran
    ActiveWindow.Top = 0

'En bas à Droite
    'Passe en Fenêtré
    ActiveWindow.WindowState = xlNormal
    'Gère la hauteur de la fenêtre
    ActiveWindow.Height = Hauteur / 2
    'Gère la largeur de la fenêtre
    ActiveWindow.Width = Largeur / 2
    'Gère la position par rapport à la gauche de l'écran
    ActiveWindow.Left = Largeur / 2
    'Gère la position par rapport au haut de l'écran
    ActiveWindow.Top = Hauteur / 2

End Sub

Salut Girodo !

Merci pour cette superbe approche !

Ma difficulté est que les écrans utilisés, respectivement affichage par le biais d'un beamer, n'ont pas les mêmes paramètres d'affichage (résolution)... Je cherche à pouvoir faire adapter automatiquement les dimensions.

Mais ton approche me donne, je l'espère, quelques pistes à explorer encore.

Poursuivons...