Problème affichage Excel Application.Height/Application.Width

Version imprimable

05/01/2007, 09h20
Paloma

Problème affichage Excel Application.Height/Application.Width

Bonjour tout le monde,

Voila, j'ai récemment posté un problème que je pensais avoir réglé. :aie:

http://www.developpez.net/forums/sho...d.php?t=255169

Mais le problème demeure toujours.
Pour le moment, j'ai résolu mon problème. ;)
Effectivement pour laisser mes onglets actifs, j'ai du laisser tomber les méthodes :

Application.Height = (strHeight * 2) / 3

Application.Width = (strWidth * 2) / 3

Mais comme je suis curieux de nature 8O , si vous pouvez m'aider à afficher les onglets et mon application avec ces méthodes, je suis vivement intéressé.
05/01/2007, 10h11
Theocourant

Bonjour,

Sache que du moment où tu indiques que c'est urgent les gens auront tendance à prendre tout leur temps pour te répondre voire ne répondront pas du tout...
De plus si tu as déjà un sujet à ce propos pourquoi ne pas continuer dessus ????

+

Théo

+1 à ce que vient de mettre Théo (salut Théo, bonne année)
Je n'ai rien compris à ton pb, paloma, puisque tu dis qu'il est résolu... mais bon, comme j'ai ça dans un coin, regarde si ça peut te servir
Code:

1 2 3 4 5 6 7 8 9 With ActiveWindow .WindowState = xlNormal .Height = 500 .Width = 800 'et pour centrer ta fenêtre : .Top = (Application.UsableWidth - .Width) / 2 .Left = (Application.UsableHeight - .Height) / 2 End With
A+

Bon j'ai lu le code à l'instant.
Citation:
Envoyé par ouskel'n'or
Je n'ai rien compris à ton pb, paloma, puisque tu dis qu'il est résolu... mais bon, comme j'ai ça dans un coin, regarde si ça peut te servir
Code:

1 2 3 4 5 6 7 8 9 With ActiveWindow .WindowState = xlNormal .Height = 500 .Width = 800 'et pour centrer ta fenêtre : .Top = (Application.UsableWidth - .Width) / 2 .Left = (Application.UsableHeight - .Height) / 2 End With
A+
Mon problème est différent.

Je cherche à récupérer la taille de l'écran, ça c'est bon.
J'aimerais que mon application, s'affiche au 2/3 de cette résolution et centre, ça c'est bon.
Mais j'aimerais que les onglets soient affichés aussi, et la ça marche pas, il m'affiche un code erreur sur apllication.height

Bon je cherche encore, si je trouve, je posterais la solution pour ceux que ça intéresse.

Bien à vous.

05/01/2007, 11h48
ouskel'n'or

Citation:

Envoyé par Paloma

J'aimerais que mon application, s'affiche au 2/3 de cette résolution et centre, ça c'est bon.
Mais j'aimerais que les onglets soient affichés aussi

Je ne comprends pas. Mon code est censé formater les feuilles de calculs, pas l'appli... Alors... ?
Passe ton code qu'on comprenne ;)
A+

Pour effacer son propre message il ne doit pas avoir reçu de réponse... si ça fonctionne toujours comme l'ancien forum (?)

Voici le code en question :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
'***************************************
' CATIA .CvS Generator File Name
' Version 1.1b beta
' created by pdubernet on 2007
'
'
' please contact your administrator or
' 
' 
'***************************************
Public strXlsFullName As String
 
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Sub Apparance()
Dim xls As Excel.Workbook
 
xls.DisplayFormulaBar = False
xls.Caption = "ASSYSTEM FRANCE"
ActiveWindow.Caption = ".CsV GENERATOR"
'Incorrect
MsgBox Application.Caption & " " & ActiveWindow.Caption
'Correct
MsgBox Application.Caption
End Sub
 
 
Private Sub Workbook_Open()
 
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
 
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
Dim strHeight As Integer
Dim strWidth As Integer
 
strHeight = apiGetSys(1)
strWidth = apiGetSys(0)
 
 
'Application.DisplayFullScreen = True
 
' désactive la barre de formule
Application.DisplayFormulaBar = False
 
'désactive le menu
Application.CommandBars(1).Enabled = True
 
'active les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = True
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
 
'affichage de la "feuille"
'Application.Height = (strHeight * 2) / 3
 
'Application.Width = (strWidth * 2) / 3
 
        'Protège la feuille
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlNoSelection
 
Sheets("Memory").Cells(2, 5) = ActiveWorkbook.FullName
 
 
strXlsFullName = ActiveWorkbook.FullName 'ActiveWorkbook.FullName
 
    frmSplash.Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'désactive la vue en plein écran
'Application.DisplayFullScreen = False
 
'réactive le menu
Application.CommandBars(1).Enabled = True
 
' réactive la barre de formule
Application.DisplayFormulaBar = True
 
'réactive les onglets des feuilles
'ActiveWindow.DisplayWorkbookTabs = True
 
'réactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = True
 
'réactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 
'réactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
 
 
End Sub

Et si j'active ça :

Code:

1
2
3
4
'affichage de la "feuille"
Application.Height = (strHeight * 2) / 3
 
Application.Width = (strWidth * 2) / 3

ben avec ça actif :

Code:

1
2
'active les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = True

le code plante alors que sans ce dernier ça passe... 8O

Je suis désolé mais je ne comprend pas pourquoi?
J'ai peut-être fait une erreur?
:aie:

05/01/2007, 12h08
ouskel'n'or

Et si tu mets

Code:

Windows(1).WindowState = xlMaximized

il se passe quoi ?
05/01/2007, 12h14
Paloma

Pareil ....

http://patrick.dubernet.free.fr/Files/CATIA/error2.jpg

bon je repasse tout à l'heure car j'ai un entretien pour un job.

C'est important car je serais au chomage fin janvier.

@ plus ouskel'n'or et Merci
05/01/2007, 15h39
cafeine

Hello,

t'es sure que Application.Height n'est pas en lecture seule ?

Moi je travaillerais plutôt sur Application.WindowState
05/01/2007, 19h10
ouskel'n'or

C'est la question que je me posais, dans l'aide Application.Height est en lecture/écriture mais parfois, elle raconte des bêêêtises. Faudrait un plus savant pour confirmer/infirmer ça :cry:
05/01/2007, 19h26
ouskel'n'or

Je viens de trouver ça dans l'aide, à Height, propriété d'application

Citation:

Hauteur de la fenêtre d'application principale. Sur Macintosh, elle est toujours égale à la hauteur totale de l'écran (en points). Sur un Macintosh, l'utilisation d'une valeur différente n'aura aucun effet. Dans Windows, si la fenêtre est réduite, cette propriété est accessible en lecture-seule et indique la hauteur de l'icône. Si la fenêtre est agrandie, cette propriété ne peut pas être définie. Utilisez la propriété WindowState pour déterminer l'état de la fenêtre.

Cafeine a encore frappé :mouarf:

:salut:

Si je regarde l'aide dans VBA, je trouve :

Citation:

Propriété Height telle qu'elle s'applique à l'objet Application.
Hauteur de la fenêtre d'application principale. Si la fenêtre est réduite, cette propriété est en lecture seule et se réfère à la hauteur de l'icône. Si la fenêtre est agrandie, cette propriété ne peut être définie. Utilisez la propriété WindowState pour déterminer l'état de la fenêtre. Type de données Double en lecture-écriture.

J'ai donc utilisé :

Code:

Application.WindowState = xlNormal

Et là, ca maaaarche ...

Voici le début du code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub Workbook_Open() 'désactive les boutons fermer plein écran et réduire d'excel Dim hwnd As Long hwnd = FindWindowA(vbNullString, Application.Caption) 'SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF Dim strHeight As Single Dim strWidth As Single strHeight = apiGetSys(1) strWidth = apiGetSys(0) ' Mettre la fenêtre en mode NoFull Application.WindowState = xlNormal ' Ensuite redimensionner l'application Application.Height = (strHeight * 2) / 3 Application.Width = (strWidth * 2) / 3 ...
Voilà ;)

Bonjour et bonne semaine à vous tous,

et surtout merci à :

- BrunoM45
- ouskel'n'or
- cafeine
:merci:
Je suis désolé de n'avoir pu repasser sur le forum après mon entretien de vendredi. 8O
Effectivement, je suis rentré très tard chez moi. :sleep:

C'est avec ravissement que j'ai pu lire vos correspondances ce matin.
Je vous remercie donc à tous pour votre persévérance et votre sollicitude.

Voici donc le code final mais en fait il n'y a rien à rajouter par rapport à ce qui a été dit :

Code:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
'***************************************
' CATIA .CvS Generator File Name
' Version 1.1b beta
' created by pdubernet on 2007
'
'
' please contact your administrator or
' euberti@assytem.com
' pdubernet@assystem.com
'***************************************
Public strXlsFullName As String
 
Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
 
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Sub Apparance()
Dim xls As Excel.Workbook
 
xls.DisplayFormulaBar = False
xls.Caption = "ASSYSTEM FRANCE"
ActiveWindow.Caption = ".CsV GENERATOR"
'Incorrect
MsgBox Application.Caption & " " & ActiveWindow.Caption
'Correct
MsgBox Application.Caption
End Sub
 
 
Private Sub Workbook_Open()
 
'désactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
 
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
 
'Windows(1).WindowState = xlMaximized
Dim strHeight As Integer
Dim strWidth As Integer
 
strHeight = apiGetSys(1)
strWidth = apiGetSys(0)
 
' Mettre la fenêtre en mode NoFull
Application.WindowState = xlNormal
' Ensuite redimensionner l'application
Application.Height = (strHeight * 2) / 3
Application.Width = (strWidth * 2) / 3
 
 
'Application.DisplayFullScreen = True
 
' désactive la barre de formule
Application.DisplayFormulaBar = False
 
'désactive le menu
Application.CommandBars(1).Enabled = True
 
'active les onglets des feuilles
ActiveWindow.DisplayWorkbookTabs = True
 
'désactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
'désactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = False
 
'affichage de la "feuille"
Application.Height = (strHeight * 2) / 3
 
Application.Width = (strWidth * 2) / 3
 
        'Protège la feuille
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlNoSelection
 
Sheets("Memory").Cells(2, 5) = ActiveWorkbook.FullName
 
 
strXlsFullName = ActiveWorkbook.FullName 'ActiveWorkbook.FullName
 
    frmSplash.Show
End Sub
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
'désactive la vue en plein écran
'Application.DisplayFullScreen = False
 
'réactive le menu
Application.CommandBars(1).Enabled = True
 
' réactive la barre de formule
Application.DisplayFormulaBar = True
 
'réactive les onglets des feuilles
'ActiveWindow.DisplayWorkbookTabs = True
 
'réactive l'entête des colonnes et lignes
ActiveWindow.DisplayHeadings = True
 
'réactive les boutons fermer plein écran et réduire d'excel
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
 
'réactive les barres d'outil
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = True
Next CmdB
 
 
End Sub