IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Afficher une fenêtre automatiquement sur 2ème écran (affichage étendu)


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Programmateur amateur
    Inscrit en
    Août 2021
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Programmateur amateur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2021
    Messages : 10
    Par défaut Afficher une fenêtre automatiquement sur 2ème écran (affichage étendu)
    Bonjour,

    Je souhaite afficher le "Feuil2" de mon classeur sur un 2ème écran, tout en gardant à l'affichage principal sur l'écran 1 la "Feuil1".
    J'ai réussi à générer une nouvelle fenêtre et la fermer avec 2 boutons de commande, mais maintenant je galère pour :
    1) détecter si 2ème écran présent et au besoin activer le mode affichage étendu
    2) afficher ma Feuil2 sur ce 2ème écran

    Merci infiniment d'avance pour ceux qui prendront de leur temps pour m'aider...

    Test affichage.xlsm

    Arno

  2. #2
    Expert confirmé
    Homme Profil pro
    retraité
    Inscrit en
    Juin 2012
    Messages
    3 405
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Juin 2012
    Messages : 3 405
    Par défaut
    Bonjour,

    Un début de solution exploitant (en ligne n°9) un code trouvé sur cette page:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    Public Sub SurEcran2()
        Dim kL1 As Double, kW1 As Double, kW12 As Double
        If dllGetMonitors = 1 Then
            Sheets("Feuil2").Select
        ElseIf Application.Windows.Count > 1 Then
            Application.Windows(2).Activate         '--- change de fenêtre
            Sheets("Feuil2").Select
        Else
            kW12 = dllGetHorizontalResolution       '--- taille totale disponible --- voir code
            Application.WindowState = xlMaximized   '--- pour obtenir la taille de l'écran
            kL1 = Application.Left
            kW1 = Application.Width
            'Debug.Print kL1, kW1, kW12
            '--- crée la nouvelle fenêtre
            ActiveWindow.NewWindow
            Application.WindowState = xlNormal      '--- pour permettre le déplacement
            '--- place la nouvelle fenêtre à gauche ou à droite selon position fenêtre 1
            If kL1 < 10 Then
                Application.Left = kW1 + 20   '--- 20 arbitraire, juste pour ne pas être au bord
            Else
                Application.Left = 20
            End If
            Application.WindowState = xlMaximized
            Sheets("Feuil2").Select
        End If
    End Sub
    Bien cordialement.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [AC-2007] afficher une requête access sur excel automatiquement
    Par marco_t dans le forum Access
    Réponses: 1
    Dernier message: 01/10/2010, 13h57
  2. afficher une fentre awwt/swing(come boite de dialogue)
    Par rddev dans le forum AWT/Swing
    Réponses: 2
    Dernier message: 20/06/2007, 00h23
  3. afficher une marque verticale sur un graphique XY
    Par micniv dans le forum Access
    Réponses: 1
    Dernier message: 06/04/2006, 09h50
  4. Afficher une texture "pleine" sur un support non c
    Par Mastero dans le forum DirectX
    Réponses: 20
    Dernier message: 27/01/2005, 13h28
  5. afficher une ligne contante sur le graphe d'un DBChart ?
    Par bigfoot dans le forum Bases de données
    Réponses: 5
    Dernier message: 23/12/2004, 16h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo