Imposer la taille de la fenêtre

[arkorrigan]

Bonjour à tous !

Je cherche un moyen pour imposer la taille de la fenêtre au lancement d'une petite application excel...
Est ce que vous auriez une petite idée..?

Merci d'avance !

[jffaber]

Bonjour,

De quelle fenêtre parles-tu? celle du fichier excel ou celle d'un userform?

[arkorrigan]

celle d'excel...

[fring]

Bonjour,

Un petit bout de code à placer dans l'événement Open de Thisworkbook

Private Sub Workbook_Open()
    With Application
        .WindowState = xlNormal
        .Width = 500
        .Height = 500
    End With
End Sub

[arkorrigan]

Ta solution marche super bien !!!! Merci beaucoup fring !

Par contre est ce que tu connais un code qui pourrait bloquer la taille de cette fenêtre ?

[fring]

Non je ne connais pas le code, cela se réalise sans doute via le "Handle" de la fenêtre pour inhiber la commande de redimensionnement de la fenêtre mais je ne connais pas la procédure.

[arkorrigan]

ok merci quand meme, je vais essayer de trouver ca !

[fring]

En adaptant le code dans la FAQ permettant de masquer la barre de titre d'une UserForm, cela donne ceci :

• dans un module
  

  Public Type RECT
          Left As Long
          Top As Long
          Right As Long
          Bottom As Long
  End Type
   
  Const GWL_STYLE = (-16)
  Const WS_CAPTION = &HC00000
  Const SWP_FRAMECHANGED = &H20
   
  Public Declare Function FindWindowA Lib "user32" _
          (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
          
  Public Declare Function GetWindowRect Lib "user32" _
          (ByVal hwnd As Long, lpRect As RECT) As Long
          
  Public Declare Function GetWindowLong Lib "user32" Alias _
          "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
   
  Public Declare Function SetWindowLong Lib "user32" Alias _
          "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
          ByVal dwNewLong As Long) As Long
   
  Public Declare Function SetWindowPos Lib "user32" _
          (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, _
          ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
          ByVal wFlags As Long) As Long
  Sub AfficheTitleBarre(stCaption As String, pbVisible As Boolean)
  Dim vrWin As RECT
  Dim style As Long
  Dim lHwnd As Long
  '- Recherche du handle de la fenêtre par son Caption
      lHwnd = FindWindowA(vbNullString, stCaption)
      If lHwnd = 0 Then
          MsgBox "Handle de " & stCaption & " Introuvable", vbCritical
          Exit Sub
      End If
      
      GetWindowRect lHwnd, vrWin
      style = GetWindowLong(lHwnd, GWL_STYLE)
      If pbVisible Then
          SetWindowLong lHwnd, GWL_STYLE, style Or WS_CAPTION
      Else
          SetWindowLong lHwnd, GWL_STYLE, style And Not WS_CAPTION
      End If
      SetWindowPos lHwnd, 0, vrWin.Left, vrWin.Top, vrWin.Right - vrWin.Left, _
              vrWin.Bottom - vrWin.Top, SWP_FRAMECHANGED
  End Sub

• dans l'événement Open de Thisworkbook
  

  Private Sub Workbook_Open()
  With Application
      .WindowState = xlNormal
      .Width = 500
      .Height = 500
  End With
  AfficheTitleBarre Application.Caption, False
  End Sub

Avec le code ci-dessus on dimensionne la fenêtre de l'application Excel et on désactive la barre de titre , vois si cela peut te convenir.
.

[arkorrigan]

Merci Fring ta soluce marche presque, seulement cela bug sur la ligne

AfficheTitleBarre Application.Caption, False

Là, Vba me dit qu'il y a une erreur de compilation ...

Tu vois pourquoi ?

[fring]

Non désolé je ne vois pas, j'ai testé le code tel quel et je n'ai pas de problème de fonctionnement