Vba - Excel - Fenetre Résolu/Fermé

Question

Bonjour,

Après des longues recherches sur le net, je n'ai trouvé aucun passage relatant mon interrogation.

Je me balade dans mon fichier Excel via des boutons. Leur code est très basique. Il ouvrela fiche ou je désire me rendre et masque celle sur laquelle j'étais.

J'y ai rajouté "Application.WindowState = xlNormal" dans certain afin de me retrouver avec un écran réduit.

Ma première question intervient. Sur windows7, en coulissant une fenêtre contre le bord, elle se place automatiquement. Est-il possible de le faire également avec vba ? Actuellement ma fenêtre se retrecit mais ne se place pas tout au bord.

De plus, je navigue en "pleine ecran". Une fois retrecit, le pleine écran se désactive. J'ai essayé à l'aide de : "Application.displayfullscreen = true" de remettre le pleine écran.

Voici ma seconde et dernière question, peut on lui demander de ce mettre en pleine écran tout en restant dans une fenêtre réduite ?

En vous remerciant d'avance de votre aide, je vous souhaite une excellente journee

pijaku · Answer

Bonjour,

Voici quelques codes qui pourront vous aider :

With Application
    .WindowState = xlNormal
    'place à gauche de l'écran
    .Left = 0
End With

With Application
    'plein écran
    .WindowState = xlMaximized
    'largeur de l'écran
    Dim largeur As Double
    largeur = .Width
End With

With Application
    'place à droite de l'écran.
        'nécessite d'avoir d'abord remplit largeur (cf ci-dessus)
    .WindowState = xlNormal
    .Left = largeur - .Width
End With

pijaku · Answer

Pour l'utiliser :
 
Private Declare Sub keybd_event Lib "user32" ( _
    ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _
    ByVal dwExtraInfo As Long)
Doit être absolument en haut de ton module, au dessus de ta première Sub ...()

Ensuite, tu insères, dans ton module, la macro :
Sub Masquer_Afficher_Ruban()
    'Simule Ctrl+F1 (à lancer depuis la feuille de calcul)
    Const VK_CONTROL = &H11
    Const VK_F1 = &H70
    Const KEYEVENTF_KEYUP = &H2
    keybd_event VK_CONTROL, 0, 0, 0
    keybd_event VK_F1, 0, 0, 0
    keybd_event VK_F1, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
End Sub

Ne te reste plus qu'à l'appeler, dans tes codes de boutons, lorsque tu veux masquer ou afficher le ruban.

Exemple :
Sub Passage_En_Mode_Normal_et_plein_Ecran()
 With Application
    .WindowState = xlNormal
End With
Call Masquer_Afficher_Ruban
End Sub