XL 2016 affichage excel sur écran

[Usine à gaz]

Bonsoir à toutes et à tous,

J'ai un souci de confort et je me tourne à nouveau vers la magie 😉

Vous l'avez certainement compris depuis longtemps, je travaille par téléphone.
Mon téléphone est un téléphone par internet et le softphone (c'est son nom) est installé sur mon ordi.

Pour voir en même temps mon classeur excel et mon téléphone (sans avoir à jongler en permanence), j'ai besoin d'afficher excel et mon softphone comme sur la capture d'écran jointe :

En fait c'est peut-être sur l'application qu'il faut agir et malgré mes recherches, je n'ai pas trouvé comment coder ... si coder est possible ?

Auriez-vous une solution vba pour afficher excel sur une partie de l'écran ?
Avec mes remerciements,
Je vous souhaite à toutes et à tous une bonne soirée 🙂
amicalement,
arthour973,

 

[Usine à gaz]

Bonjour à toutes et à tous,

Je vous souhaite une très belle journée 🙂

Peut-être pas de solution ?
amicalement,
arthour973,

 

[Simply]

Hi,

https://www.eizoglobal.com/library/basics/windows-10-multi-display-function/index.html

 

[Usine à gaz]

Bonjour Pierre,

Merci encore une fois d'être là.
Je vais tester et je reviens te dire dès que je peux 🙂
Amicalement,
arthour973

 

[Usine à gaz]

Re-Pierre,

J'ai mis ton code dans un module standard.

Je n'arrive pas à l'affecter à un bouton (elle n'apparaît pas dans la liste des macros).

Surement un truc que je n'ai encore pas compris 😕 LOL

 

[Usine à gaz]

LOL, je ne savais pas 😕
Merci Pierre 🙂

 

[Usine à gaz]

Re-Pierre désolé d'y revenir.

Chez moi, ça beugue :

ub Fenetre(x As Byte)
Static Lrg As Single, Htr As Single
    With Application
        If x = 0 Then
            Lrg = .Width
            Htr = .Height
            .Width = 100
            .Height = 100
            .Top = 20
            .Left = 20
        Else
            .Width = Lrg
            .Height = Htr
        End If
    End With
End Sub

.Width = 100
Et quand je ferme, ça beugue là :
.Width = Lrg

🙂

 

[Usine à gaz]

Je suis vraiment désolé Pierre 🙂
ça beugue chez moi même avec ton fichier.
Voir photo ci-dessous :

🙂

 

[Usine à gaz]

Vraiment merci Pierre... pour ta technique et ta patience LOL
ça marche 🙂

 

[Usine à gaz]

LOL, il me semble que c'est encore mieux comme ça :

Private Sub Workbook_Open()
    With ActiveWindow
        .WindowState = xlNormal
        Application.Left = 10
        Application.Top = 1
        Application.Width = 950 'largeur
        Application.Height = 675 'hauteur
    End With
End Sub

Vraiment un grand merci à toi 🙂

 

[Usine à gaz]

Bonjour Pierre
Bonjour à toutes et à tous,

Encore merci Pierre ton code fonctionne parfaitement mais .....
Si j'y reviens c'est qu'il me reste un souci.

Nous avons besoin d'afficher le classeur excel de travail sur des ordinateurs avec des écrans de tailles différentes.

Est-il possible de faire en sorte que l'affichage (sans modifier la hauteur et largeur codées)
soit exécuté en fonction de la taille de l'écran de l'ordi ?
C'est à dire affichage plein écran uniquement en hauteur.

Je dois pousser le bouchon un peu loin mais avec les magiciens tout est possible LOL

Avec mes remerciements,
Bonne journée à toutes et à tous,
amicalement,
arthour973

 

[Usine à gaz]

Bonjour Pierre,
Dieux du ciel que suis-je bête (ou la fatigue) je préfère la fatigue.
Bon sang, mais c'est bien sûr, il faut le faire à l'envers 🙂
Merci Pierre.

 

[Usine à gaz]

Bon sang de bonsoir ..... Génial.
Encore merci Pierre 🙂